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IDENTIFICATION 
PRODUCT CODE: AC~A877C-MC 
PRODUCT NAME: CVDZACO DZV11 DIAG PRT1 
DATE RELEASED: 17-FEB-82 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE 7 SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS _ FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977,1982 DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 

THE FUNCTION OF THE DZV11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO Ae IFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE DZV11 
OPERATES IN ITS ENV NT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 
PARAMETERS MAY Ss THE PROGRAM BY Woon! ar "AUTO SIZING" OR 
INPUT USE CONSOLE BY HAVING S AT — TIME. AUTO 
SI FIRST TIME THE IS STARTED AND 
S AND . THE AUTOSIZER. IS 1s DESIGNED TO DETECT 
DZV11 pl Re ADDRESSES AND VECT ALL REMAINING PARAMETERS WILL 
DEFAULT TO CERTAIN VALUES (SEE SEC.8.5). CONSOLE INPUT MAY BE CONTROLLED 
AT ANY START SWO6 (SEE SEC. 


we THE USE OF SWO0, sw04, 
4.1.1 FOR A DETAILED DESCRIPTION OF THESE *ouITeHes) .” 
CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS (CVDZA,CVDZB,AND CVDZC) 





CVDZA ell tenia WITH CVDZ8 WILL TEST ALL LOGICAL FUNCTIONS OF THE CZV11 


ACE MODULE. 
CVDZC IS DESIGNED AS A NON-CHAINABLE STANDALONE DIAGNOSTIC PROVIDING THE 
OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL DZV11 EJA CABLES. 


ee ee arte ane cor eae ode 


a 

* NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 14551) “ 
* BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN * 
* IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: ° 
* LSI-11, 11/2, AND 11/23 SBC 11/21 " 
® wewereemrew eer ee ree eee ere ane ome ee & 
* RANGE : 160010 TO 163770 174000 TO 177770 . 
* VECTOR RANGE: 300 TO 770 300 TO 370 * 
* AUTO-SIZING FOR... * 
* ...CSR AND VECTOR: ENABLED DISABLED _. 
CRRERERERREREREEREREERERERRERAREERREREREREREAEREREEAEAERRERERRERAREREEE 
REQUIREMENTS 

EQUIPMENT 


3 11 CPU WITH MINIMUM 4K GF MEMORY. 
ASR (OR Se TEAR ALE CONSOLE) 


MODULE 
STAGGERED TURNAROUND CONNECTOR. 
N338 CABLE TURNAROUND CONNECTOR. 


NOTE: A Hey TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 
PARITY LOGIC. 


ONE SYSTEM MODULE FOR DEC X/11 (CXDZBA), AND AN OVERLAY FOR ITEP (CvDZD). 


SEQ 0002 


CVDZAC 
CVDZAC.P11 


2.2 


3.1.1 
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STORAGE 

PROGRAM WILL USE ALL 4K OF MEMORY Sine WHERE ABL AND BOOTSTRAP LOADER 

RESIDE. LOCATION 1500 THRU 174 1740 ARE ESPECIALLY TO BE NOTED AND TO BE 

UNTOUCHED BY OPERATOR AFTER BEEN INPUT FROM CONSOLE 

(SwOO=1); OR AFTER THE ‘AUTO STO SITING’ oH BEEN DONE. THESE LOCATIONS 

MAY BE C D IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 

PARAMETERS ARE REQUIRED. 

LOADING PROCEEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE ABSOLUTE 

LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH AS_ DISK 

MAGTAPE DECTAPE. OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
H HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 


MEMORY * SIZF 
7 
7 
7 
7 
1 
3 
5 


STARTING 1HE PROCESSOR AT THE ABSOLUTE LOADER STARTING ADDRESS WILL LOAD 
C INTO MEMORY. 
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SEQ 0003 


C ZAC 
CVDZAC.P11 


4. 


4.1 








1 
::GPA  MACY11 306(1063) 10-AUG-81 11:08 PAGE 4 


10-AUG-81 10:55 


STARTING PROCEEDURE 
A, 





AND THUS W ABLE. 
START THE DIAGNOSTIC AT LOC. 200(8). THE PROGRAM 
AND PR NAMES (IF THI 


USED AS A < fe 


ADY BU 
“Wr NOTE: ANY DZV11 DIA Enostic 

BY tak PRESERVE ITS CONTENTS 
WILL TYPE MAINDEC 
OGRAM HIS WAS THE FIRST START UP OF THE PROGRAM) 
ALSO THE FOLLOWING: (ON THE FIRST PROGRAM RUN OR IF PARAMETERS 


AND 
WERE CHANGED) 


HE ABOVE 
TI 


ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS TABLE 
OGRAM THE STATUS TABLE MUST 


STARTING AT_ ADD. 00 IN_ THE ° BE 
VERIFIED BY THE USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 
TABLE SEE SECTION 8.4 FOR HELP. 


THE PROGRAM WILL TYPE ‘‘RUNNING’’ AND PROCEED TO RUN THE CIAGNOSTIC. 
CONTROL SWITCH SETTINGS 


NOTE: 


eed eed eed eed od od 


WNNNNMNnNUNnwWw 
Eeececcccee 
oo 

Qe SomuWEU 


THIS PROGRAM UTILIZES A SOFTWARE ag Lh REGISTER WHICH MAY BE 
MODIFIED BY CHANGING LOC. 176 OR BY TYPING CONTROL ‘'G’’ (*G) ON 
THE CONSOLE TERMINAL WHILE THE PROGRAM IS RUNNING. 


SET: HALT ON ERROR 
SET: LOOP ON CURRENT TEST 
SET: INHIBIT ERROR PRINT OUT 
SET: INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 
SET: INHIBIT ITERATIONS. (QUICK PASS) 
: ESCAPE TO TEST 


: R LOOP ON IT 
SET: NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING AND 
BIT Bb PROGRAM WILL ASSUME THAT THE STATUS MAP 
HAS FROM A PREVIOUS ovat DIAGNOSTIC RUN. 
SET: RESELECT DZV 1" S DESIRED ACTIVE 


SET: SELECT DELAY PARAMETER (SEE SEC. 4.1.1) 
SET: EXTRA PARAMETER INPUT (SEE SEC. 4.1.1) 
SET: LOCK ON SELECTED TEST 

SET: RESTART PROGRAM AT SELECTED TEST 

SET: GET USERS PARAMETERS FROM CONSOLE 


SEQ 0004 


peri | 


CVDZAC 
CVDZAC.P11 


4.1.1 
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SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 


SW 00 


SW 03 


Sw 04 





GET ie PARAMETERS FROM CONSOLE. bl THIS gg Hh AT START 
UP TIME sett THE USER TO INPUT AT THE CON TERMINAL THE 


AR 

DEFAULT THE FOLLOWING PARAMETERS: ALL 4 LINES ARE ET TO BE 
TESTED ON EACH D2V11, THE DEFAULT BAUD RATE IS SET A KBAUD 
AND THE CHARACTER LENGTH FOR THE MAJORITY OF TING 1S SET AT 
EIGHT BITS PER CHARACTER WITH TwO STOP BITS. 


EXTRA PARAMETER INPUT. SETTING THIS SWITCH AT START UP TIME 
PROVIDES | USER WITH THE ABILITY Mh SET THE LINES ACTIVE FOR 
TESTING AND TO SET THE DEFAULT BAUD RATE USED FOR THE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY Y PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 





SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS 
TE T NG FOR A 


IME THE PROGRAM STALLS WA 
TELY TRANSMITTED OR RECEIVED. THIS DELAY 
VIDE ENOUGH DE ME FOR THE 





WITH MOS MEMORY. WHEN I THI PR 
WITH A FASTER MEMORY SPEED THIS DELAY COUNT SHOULD BE ADJUSTED 
a eT ryt 3 FOLLOWING DEFAULTED VALUES: 


oo arroyo 
Ww Soars 
WINOUIPIOAU 

Ooo°0odo 


zs 


sss 
=f 
~~ t= OHOOOOOO 





Ssss 


SEQ 0005 
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CVDZAC.P11 
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SWITCH REGISTER RESTRICTIONS 


SW 06 


Sw 01 


SW 09 


SW 04 


RESELECT DZV11°S DESIRED ACTIVE. A MESSAGE IS Ws OUT ON THE 
ONSOLE TE NG THE OPERA 


SOL O TYFE A BIT MAP OF THE 
DZV'S DESIRED ACTIVE. USING THIS SWITCH ALLOWS LOCATION DZVACTV 
TO BE ALTERED (SEE SEC. 8.3 FOR A DESCRIPTION OF THIS LOCATION). 


EXAMPLE : 
IF THE DEVICES CORRESPONDING TO THE DZV11°S NUMBERED ZERO, TWO, 
am teveD tT IN_THE a a MAP (LOC. 1500 THROUGH 1740) ARE TO 








TYPE IN 

THIS WILL SET BITS 2 AND FOUR IN LOCATION D2VACTY. ALL 
REMAINING DEVICES IN a: Cyafus MAP WILL THEN NOT BE TESTED. 
RESTART PROGRAM AT SELECTED TEST IT IS STRONGLY SUGGESTED 


THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE TRYING TO SELECT A 
oat THAT IS NOT IN THE — OF SEQUENCE THE REASON BEING IS 
HAT THE PR AND ARAMETERS. 


EAR AREAS ET UP P 
NOTE: IF RUNNING MULTIPLE D2V11°S: THE pein YOU DESIRE TO a@e 
UNDER TEST MUST BE SELECTED BY THE USE OF SW06 BEFORE LOCKING ON 
THE TEST. IN OTHER WORDS; EACH TIME TH . PROGRAM | ARTED: 
THE FIRST D2V11 WILL BE SELECTED TO BE UNDER TEST UNLESS $u06 18 
USED TO SELECT ONLY ONE. 


LOOP ON CURRENT oon THIS SWITCH WILL ONLY WORK JF _ CALL 
*"SCOP1' IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF Ne DATA TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA, ONE PATTERN CAN'T BE SINGL T. 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED age ym 
SHCOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEAN 

TO BE USED AS A GENERAL USER CONTROL SWITCH. 


SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
rp hg pee Pt Dot! WILL CAUSE VALID TESTS TO FAIL. 








1 
3:GPA  MACY11 306(1063) 18-AUG-81 11:08 PAGE 6 


SEQ 0006 


CVDZAC 
CVDZAC .P11 


4.1.3 


4.2 
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SWITCH REGISTER PRIORITIES 
ERROR SWITCHES 


1. SW 1 DELETE PRINT OUT/BELL ON ERROR. 
. SW 1 DELETE ERROR PRINTOUT. 
. SW 15 HALT ON THE ERROR. 
4. SW 08 GO TO BEGINNING OF THE TEST(ON ERROR). 
5. SW 10 GOTO NEXT TEST(ON ERROR). 
SCOPE SWITCHES 
1. Sw 09 (IF ENABLED BY ‘SCOP1"). IF AN °** IS PRINTED IN FRONT OF 
THE TEST NO. ON AN ERROR REPORT (EX. *TEST NO. 10) SwO9_IS 


INCORPORATED IN THAT TEST AND THEREFORE SWO9 1s *USUALLY* THE 
BEST SWITCH FOR THE SCOPE LOOP (SwW14=0, Sw10=0, SwO9=1, Sw08=0) 
IF THE PROGRAM USER IS TECHNICALLY T TRAINED TO ELECTRONICALLY 
ISOLATE SIGNAL PROBLEMS ON THE DZV11 MOD 
IF swo9 IS ENABELED; AND THERE IS A *HARD* ERROR 
(CONSTANT); SWO8 IS BEST. 

2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SWO1 AND 
SwO2 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTEL TEST, 


ERROR OCCURS. 

3. Sw 14 LOOP ON CURRENT TEST. 

STARTING ADDRESS 

SA 200 = THE STARTING ADDRESS FOR ANY DZV11 DIAGNOSTIC IS LOC. 200 

NOTE: IF ADDRESS 000042 IS or & THE PROGRAM ASSUMES IT IS_ UNDER 
ACT11 OR XXDP_ CONTROL WILL ACT ACCORDINGLY. AFTER *ALL* 
HS Sa D7v118 ARE TESTED THE PROGRAM WILL RETURN TO ‘XXDP* OR 

OPERATING PROCEEDURE 


WHEN THE PROGRAM IS INITIALLY STARIED, MESSAGES AS DESCRIBED IN SECTION 
FOUR WILL BE PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 
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5.1 NORMAL START OF DIAGNOSTIC 


ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200, IF SW00=1 
THEN THE FOLLOWING QUESTIONS ARE ASKED AND MUST BE ANSWERED : 


"IST CSR ADDRESS Ao 163770): _ *" 
Y T TYPE IN THE FIRST DZ2V11 CSR IN __THE SYSTEM YOU WISH : 
TESTING TO BEGIN AT. RANGE: 160000:163770 


"IST VECTOR tre (300:7 » 
YOU MUST TYPE IN “INTHE VECTOR OF THE FIRST OZV11 IN THE SYSTEM 





UNDER TEST. 

“MAINTENANCE MODE 
EXTERNAL <H325> (E)J 
INTERNAL <D alae 1S 


OR **I*’ OR _ DEPENDING ON WHICH MODE YOU WISH TO RUN 
IN IF RUNNING “‘EXTERNAL’'; ALL SELECTED LINeS MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR. 


‘# OF DZV11°S a! OCTAL> (1:20): *" 
TYPE T re ta D2V11"S TO BE TESTED IN THE SYSTEM. RANGE 
IS 1 THRU 29 IN OCTAL. 


keeakeeee JF SWO3=1 THEN THE FOLLOWING WILL BE PRINTED **eenna08 


“LINES ACTIVE 4 BIT <IN OCTAL> (001:017): 
EACH BIT REPRESENTS A LINE AND AN ¥ COMBINATION OF LINES MAY BE 
SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
SELECTED (0-1, 2-3). 


‘DEFAULT BAUD RATE <IN OCTAL> (00:17): *' 
THIS GIVES THE USER A eee TO CHANGE THE DEFAULT BAUD RATE 


temas <H329 
YPE ‘E*’ 


) 
*04'"( 150 BAUD) ,°'05'( 300 BAUD) ,"106'"(_600 BAUD) ."07"'"(1200 BAUD), 
"10°°(1800 BAUD) ,°11°"(2000 BAUD) ,""12°°(2400 BAUD) ,“°13''(3600 BAUD) 
*14°"(4800 BAUD) .""15'"( 200 BAUD) .°°16°(9600 BAUD) .°17°(19.2 KBAUDS 
LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THE 
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 


IT IS IMPORTANT TO NOTE THAT ALL 22V11°S IN THE orn MUST BE 
CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. ALSO ALL THE EXTRA 
TERS OTHER THAN CSR AND VECTORS ARE GIVEN TO THE EXISTING 


PARAME 
DZV11°S IN THE SYSTEM. 
IF THE MODE OF OPERATION IS DIFFERENT FOR EACH D2VI1 THIS MUST 
BE PATCHED INTO THE CORRECT STATUS MAP ENTRY WHICH IS PRINTED AT 
START TIME. . AN ALTERNATIVE 1S TO O21 AT START 

ANSWER QUESTIONS ABOUT DZV11 UNDER TEST AND INDICATE ONE bavi 
IN THE SYSTEM. IF THE STATUS MAP IS TO BE ‘'PATCHED'’ IT MUST 
DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 


CVDZAC 
CVDZAC.P11 


5.2 


6. 


6.1 
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PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES Amado IN THIS DIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WIT WIDE E OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.35) 


WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC aber BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE mM REPORT 
THEN a or IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


ERRORS 

AS ot i THERE WILL ALWAYS = A_TEST NUMBER AND PC_ TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE ERROR MESSACE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


FOR SOME REASON THE hab SHOULD ‘HANG THE ~~ (GAIN CONTROL OF BUS 
INIT OR POWER DOWN/UP 


IF 
i reek CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN 


GAIN CONTROL OF CPU I 
HAPPEN, LOOK IN LOCATION ‘STSTNM' (ADDRESS 1246) FOR THE or OF THE 
Lt id THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 
vie — gl L HAVE AN IDEA AS TO WHAT THE DZV11 WAS DOING AT THE 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

THE STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW THE PRO 


GRAM WAS 
STARTED. ALSO IT IS_ IMPORTANT TO USE THIS LISTING ALONG WITH THE 
INFORMATION PRINTED ON THE TTY TO COMPLETELY ISOLATE PROBLEMS. 


eee 


CVDZAC 
CVDZAC.P11 
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8.2 
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OPERATING RESTRICTIONS 
PARAMETER MUST BE INPUT FROM USER OR APT IF ‘‘AUTO SIZING’’ IS NOT USED. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DZV11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS* MESSAGE (PROVIDING 
NO R D SwWi2=0) WITHIN 2 MIN. THIS IS ASSUMING SW11=1 (INHIBIT 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM IS on | THE TESTS WILL RUN AS IF 

Sw11 (DELETE ITERATIONS) WAS UP (=1). TH a" IS TO ‘VERIFY NO *HARD* 

ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS <-EACH TIME 

PROGRAM IS STARTED=- WILL BE A ‘QUICK PASS’ UNTIL ALL DZV11°S IN SYSTEM 

ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 


END PASS CYDZA-B CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 


SEQ 0010 


CVDZAC 
CVDZAC P11 


8.3 
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KEY LOCATIONS 
SLPADR (1252) 


DZVACTV(1406) 


$BASE (1174) 
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CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
See COUNT IS REACHED OR IF LOOP ON TEST IS 


ASSERTED. 
dg La ADDRESS OF on NEXT TEST TO BE PEFORMED. 
a NS THE NUMBER OF THE TEST NOW BEING PEFORMED. 
3 A SG ro to ALWAYS POINTS ONE PAST THE pS 


TESTED. EXAMPLE : UN) 
1227000000001 000000 MEANS THAT 07V11 NO.5 IS THE bavi 


THESE LOCATIONS CONTAIN THE INFORMATION NEEDED TO TEST 
UP TC 16 (DECIMAL) DZV11S SEQUENTIALY. THEY CONTAIN THE 
CSR, PAR AND STATUS CONCERNING THE CONFIGURATION OF 


EACH ° 

EACH BIT SET IN THIS, _LOCATION INDICATES THAT THE 
ASSOCIATED D2ZV11 TESTED IN TURN. EXAMPLE: 

(D2VACTY) 1406/0000000000011111 MEANS THAT DZV11 NO. 
02.03.06 WILL BE TESTED. EXAMPLE: (DZVACTV) 

90 56, 761986006000010001 MEANS ;HAT D211 NO. 00,04 WILL BE 


TESTED. 
natn THE RECEIVER CSR OF THE CURRENT DZV11 UNDER 


SEQ 0011 
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8.4 MORE ON THAT ‘STATUS TABLE® (1500-1740) 
"MAP OF DZV11 STATUS" 
1500 100 


04 
06 017470 
10 000000 


THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 16 DZV11°S IN 
THE er. WILL FOLLOW UNDER THIS TABLE). EXP 
1500 160100 Lt THE SYSTEM CONTROL REGISTER FOR THE isT DZV11 IN 


TH TEM. 
7802 000300 THIS IS VECTOR °A® FOR THE FIRST DZV11 IN THE SYSTEM. 
04 000017 bes IS THE BINARY REPRESENTATION OF WHAT LINES ARE T0 


BE TESTED. 

506 017470 THIS IS THE PARAMETER LOCATION USED IN MOST OF _ THE 
TESTS. _IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 
17 (19.2K BAUD) EIGHT BITS PER CHAR, AND TWO STOP BITS. 
THE USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE 
KEMAIMING PARAMETERS SHOULD BE LEFT A 
THIS LOCATION IS USED TO LOAD THE DZV11 LINE PARAMETER 
REGISTER FOR EACH LINE. THE MEANING OF THE BITS SET _IN 
THIS LOCATION IS THE SAME AS THE FUNCTION OF THE RELATED 
BITS IN THE DEVICE LINE PARAMETER REGISTER. 

1510 000000 iat LOCATION WILL eg EITHER ALL ZEROS INDICATING 
THAT INTERNAL LOOP WAS SELECTED AS MODE OF OPERATION OR 
IT WILL CONTAIN 100000” INDICATING THAT “STAGGERED MODE 
WAS SELECTED OR IT WILL CON N 000200 INDICATING TI'AT 
"“EXTERNAL** WAS THE MODE SELECT 1D 


THE ABOVE IS REPEATED FOR EACH Be yd IN THE SYSTEM. THE TABLE IS 
FI BY AUTO SIZING OR BY THE MANUAL PARAMETER INPUT PR -* 
AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY_ USER; THE 
LOCATIONS MAY BE ALTERED BY HAND TO SUIT THE SPECIFIC 
CONF IGURATION. | 


“4 


SEQ 0012 


N 1 
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8.5 xe* METHOD OF AUTO SIZING *** 
8.5.1 FINDING THE CONTROL STATUS REGISTER. 


THE PROGRAM WILL START AT ADDRESS 160000 AND START ‘REFERENCING’ THE 
ADDRESS IN THE POINTER. IF A NON-EX MEMORY TRAP OCCURES, THE POINTER 
(HOLDING ) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 
ADDRESS 16 770 1s REACHED. IF A ‘BUS REPLY’ RESPONSE WAS ISSUED BY THE 
DZV11 (OR DEVICE) (NO NXM ), "MASTER SC NABL 


7V VICE) (NO SCAN E 
ATTEMPTED 10 "BE SET AN AND THE TCR BITS FOR ALL FOUR LINES ARE SET. "TRDY’' 
1S THEN TESTED TO BE SET AND ‘MASTER SCAN ENABLE’ IS TESTED TO 3E STILL 
SET. THE DIAGNOSTIC WILL THEN CHECK THAT AT LEAST ONE TCR BIT IS STILL 
SET. iF ALL OF THE ABOVE WORKED, THIS DEVICE IS ASSUMED TO BE A D2V11. 
F F THE ABOVE FAILED, UPDATING OF THE POINTER IS DONE AND THE 


IF ANY OF 

SEQUENCE IS RE ao ATED. 

NOTE: IF THE PROGRAM DOES NOT FIND YOUR DZV11, SOMETHING IS WRONG AND 
AUTO SIZING SHOULD WOT BE DONE. 


8.5.2 FINDING THE VECTOR 


THE VECTOR AREA (ADDRESS 300-776) | IS FILLED WITH THE INSTRUCTION I0T AND 
+2" (NEXT ADDRESS). ®B1T14 AND BITS (TX INTERUPT ENABLE AND MSTSCAN 
ENABLE) ARE SET INTO THE BtVESR’™ ALL TCR BITS ARE SET, A DELAY OCCURS, 
UP (BECAUSE D2V11) THE P SSUMES 


C CTOR. 
INTERUPTED TO IS PICKED UP AND R TE: IF TH 
VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU, THERE iS A PROBLEM AND 
AUTO SIZING SHOULD NOT BE DONE. 


8.5.3 PARAMETER ASSUMPTIONS. 


i g TOO MUCH —— WOULD eT TO BE TURNED ON TO SIZE THE REST OF 

THE PARAMETERS; THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 
RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND. 
IN THIS WAY 95% OF THE PARAMETER SETUP WAS DONE BY THE PROGRAM AND 5% BY 


YOu. 

THEREFORE : 

1) ALL FOUR LINES ARE ASSUMED TO_BE TESTED. 

2) DEFAULT BAUD RATE IS SET TO 17 (19.2 KBAUD) . 
3) MODE OF OPERATION IS “INTERNAL MODE"’. 


FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4 FOR GREATER DETAIL. 
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SEQ 0014 


RUNNING THE DZV11 DIAGNOSTIC UNDER APT 
THE APT INTERFACE 


THE DZV DIAGNOSTICS HAVE BEEN DESIGNED TO BE COMPATIBLE WITH THE APT 
(AUTOMATED PRODUCT TEST) SYSTEM. THE DZV LOGIC TEST DIAGNOSTICS (CVDZA 
AND CVDZB) CAN BE RUN AS STANDALONE DIAGNOSTICS OR IN EITHER OF THE APT 
MODES. CVDZC, VER IS DESIGNED AS A STANDALONE DIAGNOSTIC ONLY AND 
REQUIRES DIRECT OPERATOR PARTICIPATION. 


SETTING UP THE DIAGNOSTIC UTING APT 


THE DIAGNOSTIC USES SEVERA. VARIABLES IN THE REGION SUBTITLED °° APT 
MAILBOX-ETABLE’. THESE VARIA3LES ARE: 


SSWREG -(1142) USED AS THE SOFTWARE SWITCH REGISTER WHILE RUNNING 
UNDER APT. 

SVECT1 =(1770) USED TO SPECIFY THE FIRST VECTOR ADDRESS 

SBASE -(1174) USED TO INDICATE BOTTOM ADDRESS OF DZV11 UNDER TEST 

SDEVM -(1176) A BIT MAP REPRESENTING WHICH DZV11°S WILL BE TESTED 

$CDW1 -(1200) USED TO INDICATE WHICH LINES TO RUN ON ALL DZ2V11°S 

$CDW2 -(1202) USED TO INDICATE THE DEFAULT TEST MODE. SET TO O FOR 


INTERNAL TESTING. 200, FOR EXTERNAL LOOP BACK (4325 
INSTALLED), OR SET TO 100000 FOR STAGGERED LOOP BACK 
TESTING ns29 INSTALLED). 

$DDWO -(1204) EACH OF THE $DDW WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR D2V11, GOING UP TO 16 DZV11'S 


RUNNING UNDER APT 


ALL OF THE VARIABLES MENTIONED IN SECTION 9.1.2 SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT. 


NOTE 
BE SURE $BASE POINTS TO THE FIRST DZV11 BEFORE RUNNING 


BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP_ THE STATUS 
TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 
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SEQ 0015 


PROGRAM DESCRIPTION 


THIS PROGRAMA WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
INITIAL ADDRESS OF THE STACK POINTER *** 1120 *# 
MISCELLANEOUS DEFINITIONS 

GENERAL PURPOSE REGISTER DEFINITIONS 

PRIORITY LEVEL DEFINITIONS 

SWITCH REGISTER’’ SWITCH DEFINITIONS 

DATA BIT DEFINITIONS (BITOO TO BIT15) 

BASIC CPU’ TRAP VECTOR ADDRESSES 


BITS 15-11=CPU TYPE 
11/04= =01,11/05202. 117E0=83. 211/40=04,11/45=C5 


11/70=06,PDQ 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT * ene 
BIT 8=MEMORY MANAGEMENT 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC 


CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=005 


MEM.LAST ADDR.=3 BYTES, THIS WORD AMD LOW OF ‘‘TYPE’’ ABO 


THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THE INFORMATION IS OBTAINED BY USING THE INDEX NUMB IN 
a) A ae THIS NUMBER oon} WHICH ITEM iN in TABLE IS PERTINENT. 
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INCREMENT THE PASS NUMBER * paeanes 
IF THERES A MONITOR GO TO IT 
IF THERE ISN'T JUMP TO CYCLE 


ay a oo CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

D LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
AND L THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


SW14=1 LOOP ON TEST 
SW11=1 INHIBIT ITERATIONS 
SCOPE ;sSCOPE=10T 


ROUTINE TO TYPE ASCIZ te grt MESSAGE MUST TERMINATE WITH A O BYTE. 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS ay A LINE FEED. 
NOTE1: $NULL CONTAINS THe CHARACTER " BE USED AS THE FILLER CHARACTER. 
NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
NOTES: S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
1) USING A_TRAP INSTRUCTION 
TYPE »MESADR :3:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 
IF BIT? IN’ THE ENVIRONMENT MODE (SENVM) BYTE JS SET, 
THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 


ROUTINE 93 TO ‘AUTO SIZE’* THE DZV11 


CSR_AND VECTOR. 
NOTE: THE CSR MAY BE ANY WHERE _IN THE FLOATING 
oo RANGE (160000: 163770) 
AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


kkhkkkkkkaekkranaaakkkkak TEST ] eee eee eee eee eee KKeKknke 
THIS TEST PROVES THE BUS REPLY RESPONSE 
DURING A READ OR WRITE TO THE FOLLOWING ADDRESS: 

DZVCSR, DZVRBUF, DZVTCR, DZVMSR 


kkkkeeenekeaneaeeaeinee TEST 2 tteeeeeeneeeenkeennkeaanneeene 


THIS TEST PROVES THAT BIT ‘DCLR’ 
CAN ET AND THAT IT WILL CLEAR 
BY ITSELF 


SEQ 0016 


a cs aaa 


—_ —as 
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kkkkkakkekkakkkkaakakie TEST 5 eee eee eee eee eee eee eee eenanne 
TEST TO VERIFY THAT THE R/W BITS OF THE 

DZVCSR REGISTER CAN BE SET. THEN VERIFY THA 

THESE BITS CAN BE CLEARED. AND FINALLY, VERIFY 

THAT AFTER BEING SET rT ahi CAN BE 


LEARED ICE 
THE BITS TESTED ARE: MAINT, MSENAB, SILOEN, 
RIE, AND TIE. 


kkkkkkkkkkkkkeekareetee TEST 6 eee ere eee eee eee eee ekkakken 


THIS TESTS THAT ALL OF THE TCR BITS 
CAN BE: SET, CLEARED, AND CLEARED BY A DEVICE CLEAR. 
THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 

BE SET, CLEARED, AND CLEARED BY A RESET. 


ner gente yon pee ee TEST 5 8teeeekeeneeeeeneeneeeneeneennr 
THIS TEST gg Ee THA 
BITS “'RDONE , TRDY ES aIT9. 

ARE READ \ THAT TRDY IS 


AND S$ ONLY AN 
ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 


kktkkkkkkakakkakatkktkit TEST 6 eee eee eee eee eee KKehh 
THIS TEST VERIFIES THAT: 

TIE, SILOEN, RIE .MSENAB, AND MAINT ARE THE 

ONLY R/W BI TS IN THE DZVCSR AND THA 

SETTING ‘‘DCLR** IN THE CSR WILL CLEAR THESE BITS. 


kkikkkkkkaekkkkkkkakkhih TEST 7 seer eee eee eee KeaeKKeeeKennn 
THIS TEST PERFORMS RESET TESTING AN 
TESTING OF READ ONLY REGISTER DZVRBUF 

AND TESTING OF WRITE ONLY REGISTER DZVLPR 


kkkkkkaekakkakakankaiee TEST 10 eee eee eee eee eee eee Aeenhe 
THIS TEST PERFORMS RESET TESTING AN 

TESTING OF READ ONLY REGISTER DZVMSR 

AND TESTING OF WRITE ONLY REGISTER DZVTDR 


kkkekkkkkkkkkkakkkakkkanr TEST 11 WOTTTTTTTTTTITITITiT TTT TTL 


VERIFY THAT SETTING ‘DTR" FOR A LINE WILL 
re ‘CO’* AND *RING'* F 


THE SAME LINE IF IN EXTERNAL MODE 
THE STAGGERED LINE IF IN STAGGERED MODE. 
LINES ARE STAGGERED AS FOLLOWS: 

LINEO WITH LINE1; LINE2 WITH LINE3. 

THIS TEST IS ONLY RUN IF AN H325,0R H329 
IS CONNECTED ON THE DZV UNDER TEST. 


kkhekkkakkkkekkaakakaaaee TEST 12 PTE peemer 
THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 

IS READY T0 B os AND THAT THE LINE SPECI= 

FIED IN BITS 8-9 OF DZVCSR CORRESPOND 

TO THE LINE SELECTED IN DZVTCR 


SEQ 0017 
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kktkkekeakankarkereanee TEST 13 raaeeaeant area ee eeeeekakaakenne 


TEST TO TRANSMIT ONE CHAR AN 
RECEIVE ONE CHAR ON ONE, LINE 


TIME. THE CHAR IS AND 
ALL SELECTED LINES WILL BE TURNED ON . 


THIS IS THE FIRST TIME AN 

DATA IS CHECKED IN THE RECE! VER. 

USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
WHICH TRANSMITS A STEADY STREAM OF CHARACTERS. 


khkeekkkkkakkakkakkakkhhe TEST 14 eee eee eee eee eee eeaKKn keke 
THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 

DISABLED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 

TO ZERO FOR EACH LINE. 

THIS TEST ALSO VERIFIES THAT THE SILO CAN BE 

EMPTIED BY ISSUING A DEVICE MASTER CLEAR. 


kkkkkkkekkkkakkkkkkkane TEST 15 ttn MV 
THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 

ag pee Oe MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
(ONE LINE AT A TIME BASED UPON VALID LINES) 

THIS IS THE TeIRST TIME THAT ALL DATA IS CHECKED 


akkkkkkkkakkakkakakkahkihth TEST 16 see eee eee eee eee eaeeeeeKKeKennkh 
THIS TEST WILL PROVE THAT: 

1) THE TRANSMITTER ‘BREAK BIT’ WORKS ie 

2) THE RECEIVER CAN FLAG har s n ERRORS 

3) THE RECEIVER CAN FLAG ‘PARITY ERRORS 
ONLY ONE LINE AT A TIME WILL BE EXERCISED. 


ekkkekkkakekkarkaakakae TEST 17 eee ee eee eee eee eae eeannhe 
THIS TEST VERIFIES La | THE DEVICE DOES NOT INTERRUPT 
WHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 
BUT WILL INTERRUPT IF THE PROCESSOR STATUS 
ALLOWS INTERRUPTS. 


kkkkkkkkkkkakakaakkaaak TEST 202 se eaa eee ee eee eee eee eakennk 
THIS TEST VERIFIES THAT THE RECEIVER WILL 
thie BEFORE THE TRANSMITTER EVEN 


THOUGH THE TRANSMITTER WAS ENABLE 
FIRST. SET PS_TO HIGH (MASK INTERRUPTS); 
GET RDONE a ee | TO SET; 


SET TX IE AND RX IE; 
CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 


SEQ 0018 
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SEQ 0019 


::GPA  PRGFRT “*2?CVDZAB/<200>/FOUR LINE ASYNC MUX TESTS, PART 1 OF 2?,CVDZAB 
::GPA_ «HEADER <CVDZA-B>,<1977,1981> 


TITLE CVDZA-C 
seCOPYRIGHT (C) 1977,1981 
; *DIGITAL EQUIPMENT CORP. 
; *MAYNARD , MASS. 01754 


SeTH IS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C5), JAN, 1981. 


étn=1 
: STARTING PROCEDURE 


cL 
;LOAD ADDRESS 000200 
;PRESS SL 


;PROGRAM W YPE 

rFEvbzAC/<200>/F OUR LINE ASYNC MUX TESTS, PART 1 OF 2” 
[PROGRAM WILL TYPE "'RUNNING’' TO INDICATE THAT TESTING HAS STARTED 
sAT THE END OF Hy PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
SAND THEN RESUME TESTING 


oREM : 
sSWITCH REGISTER OPTIONS 


sW15=100000 ;=1,HALT ON ERROR 
SW14=40000 :=1,LOOP_ON CURRENT TEST 
SW13=20000 :=1, INHIBIT ERROR TYPEOUT 
SW12=10000 :=1,DELETE TYPEOUT/BELL ON ERROR. 
11=4000 :=1, INHIBIT _ITERATIONS 
SW10=2000 :=1-ESCAPE TO NEXT TEST ON ERROR 
w09=1000 :=1,LOOP WITH CURRENT DATA 
SWw08=400 :=1,LOOP ON ERROR 
$W07=200 521, DO “AUTO SIZING'’ ON INITAL START UP. 
SW06=100 321, DESELECT SPECIFIC DEVICES 
5 alia NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
$W04=20 3=1, SELECT DELAY PARAMETER 
WO3= :=1, SELECT SPECIFIC PARAMETERS 
Sw02= :=1, LOCK ON TEST. SELECT 
Sw01= :=1, RESTART PROGRAM AT SELECTED TEST 
SWOO=1 £1, SELECT DEVICE ADDRESS, VECTOR, ETC. 


.SBTTL BASIC DEFINITIONS 


ir iMITIA, GOORESS OF THE STACK POINTER *** 1120 *#** 
EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE *:BASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEFINITIONS 
HT= 17 ;;CODE FOR HORIZONTAL TAB 
LF= 12 3;CODE FOR LINE FEED 
CR= 15 3:CODE FOR CARRIAGE RETURN 
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CVDZAC.P11  10-AUG-81 BASIC DEFINITIONS SEQ 0020 
(2) 000200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
(2) 177776 PS= 177776 *:PROCESSOR STATUS WORD 
(2) , -EQUIV PS,PSW 
(2) 177774 STKLMT= 177774 ::STACK LIMIT REGISTER 
(2) 177772 PIRQ= 177772 *:PROGRAM INTERRUPT REQUEST REGISTER 
(2) 177570 DSwR= 177570 * HARDWARE SWITCH REGISTER 
(2) 177570 DDISP= 177570 *:HARDWARE DISPLAY REGISTER 
(2) :*GENERAL PURPOSE REGISTER DEFINITIONS 
(2) 00 RO= %0 ;:GENERAL REGISTER 
(2) 000001 R1= 21 > *GENERAL REGISTER 
(2) 000002 R2= %2 * :GENERAL REGISTER 
(2) 03 R3= 13 > GENERAL REGISTER 
(2) R4= 14, * GENERAL REGISTER 
(2) 000005 R5= 15 > :GENERAL REGISTER 
(2) R6= 16 * GENERAL REGISTER 
(2) 000007 R7= 47 * GENERAL ER 
(2) 000006 SP= 16 > STACK POINTER 
(2) 000007 PC= 47 *:PROGRAM COUNTER 
(2) :*PRIORITY LEVEL DEFINITIONS 
(2) 000000 = :;PRIORITY LEVEL 0 
(2) PRI= * PRIORITY LEVEL 1 “ 
(2) 000100 PR2= 100 > :PRIORITY LEVEL 2 
(2) 000140 PR3=  =—s-- 140 *:PRIORITY LEVEL 3 
(2) 000200 PR4= 200 *:PRIORITY LEVEL 4 
(2) 0002 PR5S= 240 PRIORITY LEVEL 5 
(2) 000300 PR6= 300 *:PRIORITY LEVEL 6 
(2) PR7= 340 * PRIORITY LEVEL 7 : 
(2) «SWITCH REGISTER'’ SWITCH DEFINITIONS 
(2) 100000 Sw15= 100000 
(2) 040000 Sw14= 40000 
(2) 020000 SWw13= 20000 
(2) 000 SWi2= 10000 
(2) 000 SW11= 00 
(2) 002000 sw10= 2000 
(2) 1000 swo9= 1000 
(2) 000400 swo8= 400 
(2) 000200 swo7= 200 
(2) 000100 sw06= 100 
(2) 0 sw05= 40 
(2) 000020 sw04=. 20 
(2) 000010 sw03= 10 
(2) 000004 SWO2= 4 
(2) 000002 Swol= 2 
(2) 000001 swod= 1 
(2) -EQUIV SW09,SW9 
(2) “EQUIV $W08,SW8 
(2) “EQUIV $WO7,SW7 
(2) .EQUIV SwO6, Su6 
(2) -EQUIV $W05,SW5 
(2) -EQUIV SWO04,SW4 
(2) -EQUIV $W03,SW3 
(2) -EQUIV SW02,SW2 
(2) “EQUIV SWO1,SW1 
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(2) EQUIV sw00,SwO0 

(2) -#DATA BIT DEFINITIONS (BITOO TO 81715) 

(2) 100000 B1T15= 100000 

(2) 040000 BIT14= 40000 

(2) 020000 BIT13= 20000 

(2) 010000 BITi2= 10000 

(2) 004000 BIT11= 4000 

(2) 002000 BIT10= 2000 

(2) 001000 BITO9= 1000 

(2) 000400 BITO8= 400 

(2) 000200 BIT07= 200 

(2) 000100 BIT06= 100 

(2) 0 BITOS= 40 

(2) 000020 BIT04= 20 

(2) 000010 BITO3= 10 

(2) 004 BITO2= 4 

(2) 000002 BITO1= 2 

(2) 000001 BITO0= 1 

(2) EQUIV BITO9,BIT9 

(2) EQUIV BITO8,BIT8 

(2) EQUIV BITO7,B1T7 

(2) EQUIV BIT06,BIT6 

(2) EQUIV BITO5,BITS 

(2) IV BIT04.B114 

(2) EQUIV BIT03,B1T3 

(2) EQUIV BIT02,BIT2 

(2) EQUIV 81T01,BIT1 

(2) EQUIV BITOO,BITO 

(2) :*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 

(2) 000004 ERRVEC= 4 ::TIME OUT AND OTHER ERRORS 

(2) 000010 RESVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 ::°'T'’ BIT 

(2) 000014 TRIVEC= 14 *: TRACE TRAP 

(2) 000014 BPTVEC= 14 : :BREAKPOINT TRAP (BPT) 

(2) 000020 IOTVEC= 20 *:INPUT/OUTPUT TRAP (IOT) **SCOPE** 
(2) 000024 PWRVEC= 24 *:POWER FAIL 

(2) 000030 EMTVEC= 30 ;sEMULATOR TRAP (EMT) **ERROR** 
(2) 000034 TRAPVEC=34 ::‘"TRAP’* TRAP 

(2) 000060 TKVEC= 60 *:TTY KEYBOARD VECTOR 

(2) 000064 TPVEC= 64 *:TTY PRINTER VECTOR 

(2) 000240 PIRQVEC=240 *:PROGRAM INTERRUPT REQUEST VECTOR 
(1) 

a : INSTRUCTION DEFINITIONS 

(1) : 

(1) 005746 ‘PUSH1SP=5746 :DECREMENT PROCESSOR STACK 1 WORD 

(1) 005726 POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 

(1) 010046 PUSHRO=10046 *SAVE RO ON STAC 

(1) 017600 POPRO=12600 sRESTORE 

(1) 024646 PUSH2SP=24646  ;:DECREMENT STACK TWIC 

(1) 022626 POP2SP=2 * INCREMENT STACK TWICE 

(1) 00200 MASK=BIT *SET INTERRUPT MASK (INHIBIT FURTHER INTERRUPTS) 
(1) 000000 CLEAR=0 sALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 
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(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 000010 
(1) 000020 
(1) 000040 
(1) 000100 
(1) 000200 
(1) 010000 
(1) 020000 
(1) 040000 
(1) 100000 
(1) 
(1) 
(1) 
(1) 
(1) 000400 
(1) 001000 
(1) 001400 
(1) 
(1) 
1) 
(1) 
1) 
(1) 010000 
(1) 020000 
(1) 040000 
(1) 100000 
(1) 
(1) 
(1) 
(1) 
(1) 000000 
(1) 000400 
(1) 001000 
(1) 001400 
(1) 
(1) 
(1) 
(1) 
(1) 000000 
(1) 000001 
(1) 000002 
Ah 000003 
(1) 000000 
(1) 000010 
(1) 000020 
(1) 000030 
(1) 000040 
(1) 000050 
(1) 000060 
(1) 000070 


"aula 


Je 
GENERAL DEFINITIONS AND EQUIVALENCES 
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3DZV11 CON/ROL AND STATUS REGISTER DEFINITIONS 


: (DZVCSR) BIT DEFINITIONS 
MAINT = BIT3  ;MAINTENANCE MODE ENABLE 
DCLR=B1T4 ;DEVICE CLEAR 
MSENAB=B1T5 STER SCAN ENABLE 
RIE=B1T6 “RECEIVER INTERRUPT ENABLE 
RDONE=81T7 “RECEIVER DONE 
SILOEN= BIT12  :SILO ALARM ENABLE 
SILOAL = BIT13 :SILO ALARM 
TIE=BIT14 * TRANSMITTER INTERRUPT ENABLE 
TRDY=B1T15 * TRANSMITTER READY 

:DZVCSR WORD DEFINITIONS 
TLO=O0 s TRANSMIT LINE 0 
TL1=B1T8 * TRANSMIT LINE 


1 
TL2=B1T9 : TRANSMIT LINE 2 
TL3=BIT9!BIT8 TRANSMIT LINE 3 


:DZVRBUF BIT DEFINITIONS 


PARER=BIT12 sPARITY ERROR 
FRMERR=B1T13 SFRAME ERROR 
OVRRUN=B1T14 ;OVERRUN ERROR 
DVALID=BIT15 DATA VALID 


;DZVRBUF WORD DEFINITIONS 


RLO=0 RECEIVER LINE 0 
RL1=B1T8 sRECEIVER LINE 1 
RL2=BIT9 sRECEIVER LINE ¢ 
RL3S=BIT9!'BIT8 RECEIVER LINE 


sDZVLPR WORD DEFINITIONS 


LPO=0 sLINE PARAMETER 0 

LP1=BITO “LINE PARAMETER 1 

Lpe=B1T! “LINE PARAMETER 

LP3=BIT1!BITO :LINE PARAMETER 

VE=0 FIVE aBLTS/CHAR 1 STOP BIT 

“SIX B HAR, 1 STOP BIT 

SE * SEVEN TR TS/CHAR, 7 STOP BIT 

EIGHT=BIT4'BIT3 :EIGHT BITS/CHAR,1 STOP BIT 
“FIVE BITS/CHAR,2 STOP BITS 

SIXS=B1T3 18113 *SIX BITS/CHAR,2 STOP BITS 

SEVENS=BIT5!BIT4 > SEVEN BITS/CHAR, 3 

EIGHTS=BITS'BIT4'BIT3 :EIGHT BITS/CHAR, 





SEQ 0022 
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CVDZAC.P11 10-AUG-81 10:55 GENERAL DEFINITIONS AND EQUIVALENCES : SEQ 0023 
* 
(1) 
(1) 000100 PARITY=BIT6 sPARITY ENABLED 
(1) 000200 ODDPAR=BI1T7 “ODD PARITY ENABLED 
(1) 000000 ONE STOP= “ONE STOP BIT ENABLED 
(1) 000040 TWOSTOP=BITS =TWwO STOP BITS ENABLED 
(1) 000000 EVEPAR=0 “EVEN PARITY ENABLED 
(1) 010000 RCVON=BI1T12 “ENABLE RECEIVER (RECEIVER ON) 
(1) 0 $50=0 :SPEED 50 BAUD 
(1) 000400 $75=B1T8 *SPEED 75 BAUD 
(1) 001000 $110=B1T9 *SPEED 110 BAUD 
(1) 001400 $134=B1T9!B1T8 *SPEED 134.5 BAUD 
(1) 002000 $150=B81T10 *SPEED 150 BAUD 
(1) 002400 $300=81110!B1 1T8 *SPEED 300 BAUD 
(1) 003000 $600=81T10!BIT9 =SPEED 600 BAUD 
(1) 003400 $1 200=81110!6179!8178 *SPEED 1200 BAUD 
(1) 004000 $1800=B81T11 *SPEED 1800 BAUD 
(1) 400 $2000=B1T11 'B1T8 *SPEED 2000 BAUD 
(1) 005000 $2400 1711!B119 *SPEED 2400 BAUD 
(1) 005400 600 babi 111 iBIT9!BIT8 *SPEED 3600 BAUD 
(1) 006000 $7 800=B1T11 iBIT10 *SPEED 4800 BAUD 
(1) 006400 $7200=B1111!B1T10!B1T8 : SPEED 7200 BAUD 
(1) 007000 $9600=81T11!B1T10'BIT9 D 9600 BAUD 
(1) 007400 SO OCAITITBITIONBIT9!BITS. *SPEED 19200 BAUD 
(1 sDZVTCR BIT DEFINITIONS 
(1) 000001 TCRO=B81T0 sENABLE TRANSMISSION ON LINE 0 
(1) 000002 TCR1=B1T1 “ENABLE TRANSMISSION ON LINE 1 
(1) 900004 TCR2=BIT > ENABL ION ON LINE 2 
(1) 000010 TCR3=B1T “ENABLE TRANSMISSION ON LINE 3 
(1) 00 DTRO=B81T8 “DATA TERMINAL READY FOR LINE 0 
(1) 001000 “DATA TERM EADY FOR LINE 1 
(1) 002000 DTR2=B1T10 “DATA TERMINAL READY FOR LINE é 
(1) 004000 DTR3=B1T11 *DATA TERMINAL READY FOR LINE 
(1 :DZVMSR BIT DEFINITIONS 
(1) 000001 RINGO=B1TO :RING INDICATED ON LINE 0 
(1) RING1=B1T1 *RING INDICATED ON LINE 1 
(1) RING2=BI1T2 “RING INDICATED ON LINE : 
(1) 000010 RING3=BIT3 ING INDICATED ON LINE 
(1) 000400 £00=8 *CARRIER PRESENT ON LINE 0 
(1) 001000 C01=BIT9 “CARRIER PRESENT ON LINE 1 
(1) 002600 €02=B1T10 “CARRIER PRESENT ON LINE 2 
(1) 004000 C03=B81T11 *CARRIER PRESENT ON LINE 3 
(1) DZVTDR BIT DEFINITIONS 
(1) ' 
(1) BRKO=B1T8 sBREAK FOR LINE 0 
(1) 001000 BRK1=BIT9 “BREAK FOR LINE 1 
(1) BRK2=B1T10 *BREAK FOR LINE é 
(1) 004000 BRK3=BIT11 “BREAK FOR LINE 
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CVDZAC.P11 10-AUG=81 10:55 GENERAL DEFINITIONS AND EQUIVALENCES | SEQ 0024 
(1) 
43 ;TABLE OF LOOP AROUND FUNCTIONS (H325) 
(1) 4 en Sm wy OS RS oe Ge > GE tS He eS SS = 
(1) s I a 
(1) ; REC TRANS 
(1) ; DATA DATA 
(1) 
(1) Db > we Wee ae OS ee Ss ee 
(1) s ) a 
(1) ; CO RTS 
(1) 
(1) D4 ow ey ST EP te Ge Ge GD ED EB SS: Se mw = eS 
(1) ; RING DTR 





M 2 
CVDZ2A-C MACY11 30G(1063) 10-AUG-81 11:08 PAGE 25-6 
CVDZAC.P11  10-AUG-81 10:55 TRAPCATCHER FOR UNEXPECTED INTERRUPTS SEQ 0025 
(1) son eo oneaiinaincnessiingte ieesinMtinnc te i NataaaensibaR rth hse to 
(1) ! Sees Seeeeeeeee Gee eG eGo eeTe CTS TOO@OOGOOOOEOO2Qs ©O@GOOG FFF F@OeOOeeeee®2 
(1) : TRAPCATCHER FOR ILLEGAL INTERRUPTS 
(1) “THE STANDARD "TRAP CATCHER'' IS PLACED 
(1) :BETWEEN ADDRESS O TO ADD DRESS 776. 
(1) 31T LOOKS LIKE “PC+2 HALT 
(1)  RRRAARRRAREEREHEERREEEEEREEREHERERENRERERERERRREERAREERREEHRERETEEEE 
(1) 
(1) 000000 .=0 
(1) s STANDARD INTERRUPT VECTORS 
(1) - 
(1) 900020 .=20 
(1) 000020 004404 . SCOPE ;SCOPE LOOP HANDLER 
(1) 000022 000200 MASK HANDLE AT PRIORITY 7 
(1) 000024 007414 $PWRDN “POWER FAIL HANDLER 
(1) 000026 000340 340 “SERVICE AT PRIORITY LEVEL 7 
(1) 000030 006522 SERROR “ERROR HANDLER 
(1) 000032 000340 “SERVICE AT PRIORITY LEVEL 7 
(1) 000034 006314  TRPSRV “GENERAL HANDLER DISPATCH SERVICE 
(1) 000036 000340 340 “SERVICE AT PRIORITY LEVEL 7 
(2) .SBTTL ACT11 HOOKS 
(3) SRRRARREREEREEREEREREEERERERERERREREREEREREREEREREREREREREREREEEE 
(2) “HOOKS REQUIRED BY ACT11 
(2) 040 SSVPC=. sSAVE PC 
(2) 000046 = 
(2) 000046 004540 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(2) 000052 000000 “WORD 0 s32)SET LOC. 332 TO ZERO 
(2) 000040 -=$SVPC *: RESTORE P 
(1) 000174 2174 
(1) 000174 000000 DISPREG:0 sSOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
(1 000176 900000 SUREG: 0 “SOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 
(1) 000200 000137 002116 ; JMP START :G0 TO START OF PROGRAM 
(2) 
(2) 001000 .=1000 
(2) 001000 005200 053103 055104 MTITLE: .ASCIZ <200><12>/CVDZAC/<200>/FOUR LINE ASYNC MUX TESTS, PART 1 OF 2/<200> 
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CVDZAC.P11 10-AUG-81 10:55 ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
(3) 001120 .=1120 
(4) SRARRRERERERERRRREEREERERERARRRRERREREREERERERREERRERRERERERER ES 
(4) *SBTTL APT MAILBOX-ETABLE 
(5) eee ae REEAEAAAEAAAAAAAAAEARAEAAAEKKAEEAERAARARAKE CRAKE 
(4) EVE 
(4) 001120 $MAIL: ::APT MAILBOX 
(4) 001120 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
(4) 001122 000000 SFATAL: .WORD AFATAL ::FATAL ERROR NUMBER 
(4) 001124 000000 STESTN: .WORD ATESTN ::TEST 
(4) 001126 000000 WOR SS ::PASS COUNT 
(4) 001130 SDEVCT: .WO ADEVCT ::DEVICE COUN 
(4) 001132 000000 AUNIT 3 31/ T R 
(4) 001134 000000 SMSGAD: .WORD AMSGAD ;:MESSAGE ADDRESS 
(4) 001136 0 SMSGLG: .WORD AMSGLG :SMESSAGE LENGTH 
(4) 001140 SETABLE: *:APT ENVIRONMENT TABLE 
(4) 001140 00C SENV:  .BYTE AENV ENV IRONMEN NT BYTE 
(4) 001141 000 BYTE > ENY MODE BITS 
(4) 001142 000 SSWREG: .WORD ASWKEG ;;APT SWITCH REGISTER 
(4) 001144 000000 WORD s USER S 
(4) 001146 00 SCPUOP: .WORD ACPUOP ;;:CPU TYPE, OPTION 
(4) ze BITS 15-112 CPU T 
(4) oa 1/64=01, "41 /05=02, 11/20=03,11/40=04,11/45=05 
(4) 38 i i, 70-06.P PDQ=07,0=10 
(4) ik BIT 10=REAL TIME CL 
(4) ze BIT 9=FLOATING POINT PROCESSOR 
(4) eC BIT 8=MEMORY MANAGEMENT 
(4) 001150 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(4) 001151 000 SMTYP1: .BYTE AMTYP1 5iMEM. TYPE ,BLKA 
(4) ot MEM.TYPE BYTE <= (HIGH BYTE) 
(4) Z 900 NSEC CORE=001 
(4) zs 300 NSEC BIPOLAR=002 
(4) ma 500 NSEC MOS=003 
(4) 001152 000000 GMADRI: .WORD ANADR1. ::HIGH ADDRESS. BLKAI os 
(4) ° MEM.LAST ADDR.=3 BYTES.THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
(4) 001154 000 $MAMS2: .BYTE AMAMS2 ;:HIGH ADDRESS.M.S. BYTE 
(4) 001155 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE, 
(4) 001156 000000 SMADR2: .WORD AMADR? ::MEM.LAST ADDRESS, BLKA2 
(4) 001160 000 $MAMS3: .BYTE AMAMS3 :zHIGH ADDRESS,.M.S.BYTE 
(4) 001161 000 SMTYP3: .BYTE AMTYPS :iMEN. TYPE BL 
(4) 001162 000000 R3: .WORD AMADR3 ::MEM.LAST “ADDRESS BLKA3 
(4) 001164 SMAMS4: .BYTE AMAMS4 ;:HIGH ADDRESS,M.S.BYTE 
(4) 001165 000 SMTYP4: .BYTE AMTYP4 3 ;MEM. TYPE BL 
(4) 001166 000000 SMADR4: .WORD AMADR4 ::MEM.LAST ADDRESS BLKA4 
(4) 001170 000300 SVECT1: .WORD AVECT1 :EINTERRUPT cTORFT BUS PRIORITY#1 
(4) 001172 000000 SVECT2: .WORD AVECT2 NTERRUPT OR#2BUS PR v#2 
(4) 001174 160010 SBASE: .WORD ABASE : BASE RUDRESS. OF FOULPMENT OUMDER TEST 
(4) 001176 000001 SDEVM: .WORD ADEVM ;;DEVICE MAP 
(4) 001200 000017 $CDW1: WORD ACDWw!1 * CONTROLLER DESCRIPTION WORDA1 
(4) 001202 000000 $CDW2: .WORD ACDW2 ;:CONTROLLER DESCRIPTION WORD#2 
(4) 001204 017470 SDDWO: .WORD **DEVICE DESCRIPTOR WORD#O 
(4) 001206 017470 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 
(4) 001210 0174 $DDW2: .WORD ADDW2 ;;DE'’:cE DESCRIPTOR WORD# 
(4) 001212 017470 $DDW3: . WORD W3 = :DEVICE DESCRIPTOR # 
(4) 001214 017470 $DDW4: .WORD ADDW4 ;:DEVICE DESCRIPTOR WORD#4 
(4) 001216 017470 SDDWS: .WORD W SS OEVICE DESCRIPTOR WORDAS 
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CVDZAC.P11 10-AUG=81 10:55 T MAILBOX~E TABLE SEQ 0027 
(4) op $59 017470 44, » WORD pate, ; DEVICE 
(4) 001222 017470 SDDW -WORD ADDW > DEVICE 
(4) Onis 4 017470 SDDWS: .WORD ADDWS ;;DEVICE 
(4) 001226 017470 DDW9: .WORD ADDW9 ;;DEVICE 
(4) oS4 5 0 017470 SDDW10: .WORD ADDW10 ;;DEVICE 
(4) 001232 017470 SDDW11: .WORD ADDW11 ;;DEVICE D 
(4) 0012 017470 SDDWi2: .WORD ADDWI2 ;;DEVICE 
(4) 0012 017470 SDDW15: .WORD ADDWI5 ;;DEVICE 
(4) 001240 017470 SDDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORDA14 
(4) 001242 017470 SDDW15: .WORD ADDWI5 ;;DEVICE DESCRIPTOR WORD#15 


SETEND: 


ea eee | 
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CVDZAC.P11 10-AUG=81 10:55 COMMON TAGS 


SEQ 0028 


3} .SBTTL COMMON TAGS 

(4) SE RRERRERRRARERARER REE RAR EE RAE RRRERREAARARREAAERARE RARER RAE 
(3) s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

at s*USED IN THE PROGRAM. 

(3) 001244 SCMTAG: :;START OF COMMON TAGS 

(3) 001244 000000 eWORD 0 

(3) 001246 000 STSTNM: .BYTE 0 : CONTAINS THE TEST NUMBER 

(3) 001247 000 SERFLG: .BYTE 0 :: CONTAINS ERROR FLAG 

(3) 001250 000000 SICNT: .WORD 0 :;CONTAINS SUBTEST ITERATION COUNT 
(3) 001252 SLPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRES 

(3) 001254 000000 S$LPERR: .WORD 0 ::CONTAINS SCOPE RETURM FOR ERRORS 
(3) 001256 SERTTL: .WORD 0 s:CONTAINS TOTAL ERRORS DETECTED 
(3) 001260 009 SITE BYTE O ::CONTAINS ITEM CONTROL BYTE 

(3) 001261 1 SER BYT 1 ::CONTAINS MAX. ERRORS PER TEST 
(3) 001262 000000 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR INSTRUCTION 
(3) 001264 000000 S$GDADR: .WORD 0 >:CONTAINS ADDRESS OF ‘GOOD’ DATA 
(3) 001266 SBDAD eWORD 0 ::CONTAINS ADDRESS OF ‘BAD’ 

(3) 001270 SGDDAT: .WORD 0 ::CONTAINS ‘GOOD’ A 

(3) 001272 00 SBDDAT: .WORD 0 ::CONTAINS ‘BAD’ DATA 

(3) 001274 000000 eWORD 0 : sRESERVED--NOT TO BE USED 

(3) 001276 000000 eWORD 9Q 

(3) 001300 000 S$AUTOB: .BYTE 0 : ;sAUTOMATIC MODE INDICATOR 

(3) 001301 000 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 

(3) 601302 000000 D 

(3) 001304 177570 SWR: » WORD S :: ADDRESS OF SWITCH REGISTER 

(3) 001306 177570 DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 

(3) 001310 177560 STKS: 177560 :: TTY KBD STATUS 

(3) 001312 177562 STKB: 177562 :: TTY KBD BUFFER 

(3) 001314 177564 STPS: 177564 s:TTY PRINTER STATUS REG. ADDRESS 
(3) 001316 177566 STPB: 177566 ::TTY PRINTER BUFFER REG. ADDRE 
(3) 001320 000 SNULL: .BY 0 :sCONTAINS NULL C TER FOR F 
(3) 001321 002 SFILLS: .BYTE 2 s:CONTAINS # OF FILLER CHARACTERS REQUIRED 
(3) 001322 012 SFILLC: . 12 :3s INSERT FILL CHARS. AFTER A "LINE F 
(3) 001323 000 STPFLG: .BYTE 0 ::""TERMINAL AVAILABLE'’ FLAG (BI T<07>=0=YES) 
(3) 001324 SREGAD: .WORD 0 ::CONTAINS THE ADDRESS FROM 

(3) s:WHICH (S$REGO) WAS OBTAINED 

(5) 001326 000000 SREGO: .WOR 0 ::CONTAINS (($REGAD) +0) 

(5) 001330 000000 SREG1: .WORD °-0 ::CONTAINS (($REGAD) +2) 

(5) 001332 SREG2: . 0 s:CONTAINS (($REGAD) +4) 

(5) 001334 000000 SREGS: .WORD 0 ::CONTAINS (($REGAD)+ 

(S) 001336 000000 SREG4: .WORD 0 s:CONTAINS (($REGAD)+10) 

(5) 001340 000000 SREGS: .WORD 0 s:CONTAINS ((S$REGAD) +12) 

(5) 001342 0000C0 STMPO: .WORD 0 :;USER DEFINED 

(5) 001344 000000 STMP1: .WORD 0 ::USER DEFINED 

(5) 001346 .000000 STMP2: .WORD 0 :;USER DEFINED 

(5) 001350 000000 STMP D «OO :;USER DEFINED 

(5) 001352 000000 MP4 -wORD 0 : USER DEFINED 

(3) 001354 000000 STIMES ::MAX. NUMBER OF ITERATIONS 

(3) 001356 077 SQUES: .ASCII /?/ : ;QUESTION MARK 

(3) 001357 015 SCRLF: .ASCII <15> :: CARRIAGE RETURN 

(3) 001360 000012 SLF: eASCIZ <12> szLINE FEED 
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001500 
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ERROR POINTER TABLE | SEQ 0029 


EV 
ACTIVE: DZV.MAP 








~SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN — 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F 
: sLOCAT ION a staan te INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


*N TEMB IS 0 THE OWLY PERTINENT DATA_IS (SERRPC). 
; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
* EM ;;PCINTS TO THE ERROR MESSAGE 
;@ DH :;POINTS TO THE DATA HEADER 
;@ DT ;;POINTS TO THE DATA 
el DF ;;POINTS TO THE DATA FORMAT 


3PROGRAM CONTROL PARAMETERS 


NEXT: QO sADDRESS OF NEXT TEST TO BE EXECUTED 





LOCK: 0 sADDRESS FOR LOCK ON CURRENT TEST,TIGHT LOOP 
;PROGRAM VARIABLES 
LINE: 17 sDEFAULT ALL FOUR LINES RUNNING 
PAR: 17470 SPARAMETERS: 8 BITS/CHAR,2 STOP BITS,19200 BAUD.NO PARIT 
MODE: 0 ; DEFAULT MAINTENANCE MODE 
SAVLIN: 0 NUMBER 
XMTLIN: 0 ; TRANSMISSION LINE NUMBER 
XMTCNT: 0 sCOUNT OF WORDS IN A TRANSMISSION PATTERN 
REGIST: 0 ;DEVICE ADDRESS STORAGE LOCATION 
SAVPC: 0 sPROGRAM COUNTER STORAGE 
DZVACTV:.BLKW 1 sDZV11"S SELECTED ACTIVE. 
SAVACTV:.BLKW 1 A BIT MAP OF DZV11°S IN THE SYSTEM 
RUN: 1 : sPOINTER ONE PAST RUNNING DEVICE. 
DZVNUM: .BLKB 1 :*OCTAL NUMBER OF DZV11°S IN THE SYSTEM l 


SAVNUM: .BYTE 1 : : *WORKABL 


E R. 
S8OCTAL NO. OF DZV11"S BEING TESTED 
; TABLE POINTER. 
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000024 


00 

000000 
000000 
000000 


001446 
000024 
000200 
000044 
001446 
001445 
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ERROR POINTER TABLE 


; PROGRAM CONTROL FLAGS 





INIFLG: .BYTE 0 sPROGRAM INITIALIZATION FLAG 
HDRFLG: .BYTE 0 ; PROGRAM La AP ae ly FLAG FOR HEADER MAP 
MNTFLG: .BYTE 0 MAINTENANCE BIT SET FLAG 
ro BYTE O * TRANSMISSION COMPLETION FLAG 
DATA VARIABLES 

TDO: .WORD 0 

TD1: eWORD 0 

TD2: WORD OQ 

TD3: WORD O | 

TRO: -WORD 0 | 

TRI: eWORD 0 - 

TR2: eWORD 0 

TR3: eWORD 0 

STOP: 

.SBTTL APT PARAMETER BLOCK 


SRAEEKERERAREREREEEEEEREERERREREAEREEEEEEEREREREERRRREREREREREREY 


:SeT LOCATIONS 24 AND 44 #S REQUIRED FOR APT 


SREREEEEKREREREREEERREREREREREREREREREEEREERRRERRREREREREREREEEE 


~$X=.  33;SAVE CURRENT LOCATION 

.=2 << RE R POWER FAIL TO POINT TO START OF PROGRAM 
200 APT START 

~=44 sPOINT 70 APT INDIRECT ADDRESS PNTR. 

SAPTHDR S EPOINT TO APT HEADER BLOCK 


-=.$X  ;;RESET LOCATION COUNTER 
5S RREREERRERRER ERE ARERR AARARAERAEEAARERRERRERRERERERERRRAK EE 
STE TERFACE — BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: . SMAIL Seog 37 OF APT MAILBOX (BITS 0-15) 

STSTM: .wWORD 80. 33RUN TIM OF LONGEST TEST 

SPASTM: .WORD 20. ve RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


SUNITM: .WORD sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
» WORD SETEND- ShAIL/ ::LENGTH MAILBOX-E TABLE (WORDS) 
a STATUS TABLE AND ADDRESS ASSIGNMENTS 
-=1500 
ZV.MAP: 
DZCRO: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 0 
DZVCO: .BLK 1 *RECEI VER AND BASE VECTOR FOR DZV11 NUMBER 0 
LINEO: .BLKW = 1 SALL LINES SELECTED 
PARO: —BLKW 1 S 
MANTO: .BLKW 1 «MAINTENANCE MODE FOR THIS DEVICE 
DZCR1 —BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 1 
DZVC1 -—BLKW 1 *RECEIV VER AND BASE VECTOR FOR DZV11 NUMBER 1 
LINE1 —BLKW 1 ALL LINES SELECTED 


Alte Bhar eR om Lanta 0S ea TR th 
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(3) 
(3) 
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W 
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ht hye hh td 
Noo 


—_ td 3 2 — td dd od —_ 
RRRS 
ROS F 


ah 4h 4h 44 


ssssg sgsss geese ge : 
PRA 


SOLS SLE. 
SMO WO 





000001 
000001 


000001 


PAR1: 
MANT1: 


DZCR10: 

DZVC10: 

LINE10: 
PAR10: 


MANT10: 
DZCR11: 
DZVC11: 
LINE11: 
PAR11: 

MANT11: 
Dave: 


DZVCle: 
LINE12: 
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T PARAMETER BLOCK 


-BLKW 
‘| 


eed ees eed ed ed med eed eed od ed oe) od de 2 Dd oe ed ed aed wee Bed oe oe oe med ee od bd ed od 2d od wed eed aed od ——D wed eed ed ond oD — ey 





SEQ 0031 


; PARAMETERS 
:MAINTENANCE MODE FOR THIS DEVICE 


: CONTROL STATUS REGISTER FOR DZV11_ NUMBER 2 

EL LY VER AND BASE VECTOR FOR DZV11 NUMBER 2 
ALL LINES SELECTED 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 35 

sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 3 

ALL LINES SELECTED 

;MAINTENANCE MODE FOR THIS DEVICE 

:CONTROL STATUS REGISTER FOR DZV11 NUMBER 4 

sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 4 

SALL LINES SELECTED 

PA TERS 

;MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 5 

sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 5 

sALL LINES SELECTED 

; PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 

sCONTROL STATUS REGISTER FOR DZV11 NUMBER 6 

sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 6 

:ALL Ab SELECTED 

;MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11_ NUMBER 7 

;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 7 

sALL LINES SELECTED 

; PARAMETERS 

SMAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 10 

sRECEIVER, AND BASE VECTOR FOR DZV11 NUMBER 10 

¢ALL LINES SELECTED 

MAINTENANCE MODE FOR THIS DEVICE 

:CONTROL STATUS REGISTER FOR DZV11 NUMBER 11 

;RECEIVER AND BASE VECTOR FOR DZV11 NUMSER 11 

:ALL ie: SELECTED 

;MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11_ NUMBER 12 

sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 12 

ALL LINES SELECTED 


MAINTENANCE MODE FOR THIS DEVICE 


CVDZA- . are 306 (1063) 
1 10:55 


~~ 
Ww 
Yee” 


WWNWWWWWNWWAAW 


PR PR POR PR BPR PROPOR PRP PROPOR POPP POPP Pe Pe Fe Py Oe Pe mF, Oe 
ee Nt at et Nt Nt er et et et et et er et et a et a a a ee ae a a el er 


— = NINWNWNWNWNWWW 


11:08 PAGE 25-15 





APT PARAMETER 8LOCK 


DZCR13: 
DZVC15: 
LINE13: 
PAR13: 

MANT13: 
DZCR14: 
DZVC14: 
LINE14: 

PAR14: 

MANT14: 
DZCR15: 
DZVC15: 
LINE15: 
PAR15: 

MANT15: 
DZCR16: 
DZVC16: 
LINE16: 
PAR16: 

MANT16: 
DZCR17: 
DZVC17: 
LINE17: 
PAR17: 

MANT17: 


+ CONTROL STATUS REGISTER FOR DZV11 NUMBER 15 
oA VER AND LEcTE VECTOR FOR DZV11 NUMBER 13 


AME 
MAINTENANCE MODE FOR THIS DEVICE 
+ CONTROL STATUS REGISTER FOR DZV11 NUMBER 14 
sRECEIVER ny My VECT FOR DZV11 NUMBER 14 
: PARAME 
;MAINTENANCE MODE FOR THIS DEVICE 
CONTROL STATUS REGISTER FOR DZV11 NUMBER 15 
; E VECTOR FOR DZV11 NUMBER 15 
; PARAMETERS 
MAINTENANCE MODE FOR THIS DEVICE 
s CONTROL STATUS REGISTER FOR DZV11 NUMBER 16 
CEIVER AND BASE VECTOR FOR DZV11 ss 16 
:ALL LINES SELECTED 
:MAINTENANCE MODE FOR THIS DEVICE 


CONTROL STATUS REGISTER FOR DZV11_ NUMBER 17 
3RE R AND BASE VECTOR FOR DZV11 NUMBER 17 


ed ed ed et) od ed eet eed od od Dd ed eds a ed ad aed Dd dD oe ed eed od ood 


TERS 
MAINTENANCE MODE FOR THIS DEVICE 


DZV.END: 
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DEFINITIONS FOR TRAP SUBROUTINE CALLS 


oT 
a 
Nee 


(1) ;POINTERS TO SUBROUTINES CAN BE F 

oN :IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 

(1) g SERRE REREREREEEEEEEEEREREREREREAEEEREAREREEREEEEREREREREREEREE 
(1 ) © SS SSS S SSS SSS SSE 4 GS SSESE SES SS SSS SSSSHSSSSSSSSSSSSSTSSTSVSVSFSSSSSFVVSVSSF FFF F ESF SS2°2 
(1) 001742 . TRPTAB: 

(3) 104400 ADVANCE=TRAP+0 ;CALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ON?) 
(2) 001742 006410 ADV 

(3) 104401 SCOP1=TRAP+1 ;CALL TO LOOP ON CURRENT DATA HANDLER 

(2) 061744 004650 , 1 

(3) 104402 TYPE=TRAP+2 :CALL TO TELETYPE OUTPUT ROUTINE 

(2) 001746 004674 TY 

(3) 104403 INS TR=TRAP+3 :CALL TO ASCII STRING INPUT ROUTINE 

(2) 001750 005514 . INSTR 

(3) 104404 INSTER=TRAP+4 ;CALL TO INPUT ERROR HANDLER 

(2) 001752 005620 . INSTER 

(3) 104405 PARAM=TRAP+5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 

(2) 001754 005640 - PARAM 

(3) 104406 SETFLG=TRAP+6 ;CALL TO SET FLAG ROUTINE 

(2) 001756 010252 »SETFLS 

(3) 104407 SAVO5=TRAP+7 ;CALL TO REGISTER SAVE ROUTINE 

(2) 001760 006040 . SAV 

(3) 104410 RESO5=TRAP+10 :CALL TO REGISTER RESTORE ROUTINE 

(2) 001762 006100 ; 5 

(3) 104411 CONVRT=TRAP+17_—- ;CALL TO DATA OUTPUT ROUTINE 

(2) 001764 006132 « CONV 

(3) 104412 CNVRT=TRAP+12 :CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
(2) 001766 006136 - CNVRT 

(3) 104413 DEVICE. CLR=TRAP+1 5 ;CALL TO ISSUE A DEVICE CLEAR 

(2) 001770 006336 -DEVICE.CLR 

(3) 104414 DELAY=TRAP+14 ;CALL TO DELAY FOR FAST CPU'S 

(2) 001772 006370 -DELAY 

(3) 104415 PARMD=TRAP+15 sCONVERT DECIMAL STRING TO OCTAL 

(2) 001774 011256 ° D 

(3) 104416 PAWCH=TRAP+ 76 :SET FLAG ECHO OR CABLE 

(2) 001776 010372 -PAWCH 

(3) 104417 DCLASM=TRAP+17 sCLEAR DEVICE, SET MAINT. BIT IF I MODE 

(2) 002000 006356 -DCLASM 

(3) 104420 SHIF T=TRAP+20 ;CALL TO ROTATE LINE POINTER 

(2) 002002 006422 SH 

(3) 104421 LPRSET=TRAP+21 ;CALL TO SET UP LPR DEVICE REGISTER 

(2) 002004 006440 , ET 

(3) 104422 BUF SET=TRAP+22 ;CALL TO ZERO BUFFER AREA 

of} 002006 006500 »BUF SET 

(1) j P4 Ss eee eee2 eeu: . Seon FG FZ@eeo ee GeV eeeeeee2@@ee@@Qeoo2@ow@ 1.2 @e2eoQ ~~ 2 227° 
(1) 2 SRERAEAERARERERAREEEEEREREEAAEERAEAEREREREEEERAERAEEEEEEREEEREREAEREREEEE 


- 
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CVDZAC.P11_  10-AUG-87 10:55 T PARAMETER BLOCK SEQ 0034 
(1) ¢DZV11 VECTOR AND REGISTER INDIRECT POINTERS . 
1) ZWORKING AREA 
(1) 002019 160040 DZVCSR: 160060 ;R/W 
(1) 002012 160041 HDZVCSR:160061 :R/W 
(1) 902014 16004¢ DZVRBUF:160042_ ;READ ONLY 
(1) 002016 16004 HDZVRBUF : 160043 :READ ONLY 
(1) 90202 160042 0062" :WRITE ONLY 
(1) 002022 16004 NDYVLPR: 160068 | ZWRITE ONLY 
(1) 002024 160044 CR: 160044 ;R/W 
(1) 002026 160045 HDZVTCR:160065 :R/W 
(1) 002030 160046 SR: 160046 ;READ ONLY 
(1) 002032 160047 HDZVMSR:160047 ;READ ONLY 
(1) 002034 160046 DZVTDR: 160046 WRITE ONLY 
(1) 002036 160047 HDZVTDR: 160047 WRITE ONLY 
(1) DEFAULT DZV VECTORS 
(1) 002040 000300 DZVRIV: 300 REC INTR VECTOR 
(1) 002042 060302 DZVRIS: 302 REC_INTR STATUS , 
(1) 002044 0003 D2VTIV: 304  :XMIT INTR VECTOR 
(1) 002046 000306 DaVEIS: 306 © :XMIT INTR STATUS 
(1) 
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CVDZAC.P11  10=AUG-81 10:55 T PARAMETER BLOCK SEQ 0035 

(1) 

) ;TIME TABLE FOR RELATIVE TIMING TESTS 

(1) 

(1) 002050 TMTBL : 

1) 002059 000000 50: 0 : 

(1) 002052 000000 175: 0 

(1) 002054 000000 1110: 0 

(1) 002056 000000 1134: 0 

(1) 002060 000000 1150: 0 

(1) 002062 000000 1300: 0 

(1) 002 0 1600: 0 

(1) 002066 000000 T1200: 0 

(1) 002070 11800: 0 

(1) 002072 000000 T2000: 0 

(1) 002074 0 12400: 0 

(1) 002076 000000 T3600: 0 

(1) 002100 000000 T4800: 0 

(1) 002102 000000 17200: 0 

(1) 002104 000 T9600: 0 

(1) 002106 TEIGHT:0 

(1) 002110 000000 TSEVEN: 0 

(1) 002112 000000 0 

(1) 002114 000000 TFIVE: 0 
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CVDZAC.P11 10-AUG-81 10:55 PROGRAM taaTLALIZATION AND START UP. SEQ 0036 
(1) 
(1) : PROGRAM INITIALIZATION 
(1) “LOCK OUT INTERRUPTS 
(1) *SET UP PROCESSOR STACK 
(1) “SET UP POWER FAIL VECTOR 
(1) “CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
i) “TYPE TITLE MESSAGE 
(1) 002116 START: 
(1) 002116 000005 RESET sCLEAR THE WORLD. START NEW ENVIRONMENT 
(1) 002120 012706 #STACK,SP ;SET UP STACK 
(1) 002124 10g4e7 000200 MTPS LOCK OUT INTERRUPTS 
(1) 002130 012737 007414 000024 MOV #SPWRDN, a#24 ‘SET UP POWER FAIL VECTOR 
(1) 002136 012737 006522 000030 MOV WSERROR,EMTVEC :SET UP ERROR VECTOR 
(1) 002144 012737 000340 00C032 MOV #340, EMTVEC+2 
(1) 002152 005037 001126 CLR SPASS *CLEAR PASS COUNT 
(1) 002156 105037 001247 CLRB = SERFLG “CLEAR ERROR FLAG 
(1) 002162 012737 001500 001420 MOV #DZV.MAP,ACTIVE :GET MAP POINTER. 
(1) 002170 012737 000001 001412 MOV #1,RUN “POINT POINTER TO FIRST DEVICE. 
(1) 002176 005037 001256 CLR SERTTL “CLEAR ERROR COUN 
(1) 002202 005037 001262 CLR SERRPC “CLEAR LAST ERROR POINTER 
(1) 002206 005037 001246 CLR STSTNM *SET UP FOR T 
(1) 002212 012737 002116 001252 MOV #. START, $LPADR {SET UP FOR POWER FAIL BEFORE 
(1) :SET UP FOR SMALL 11 surtcn REGISTER COMPATIBILITY 
(1) 002220 012737 000176 001304 MOV #SWREG,S sPOINT TO SOFT 
(1) 002226 012737 000174 001306 MOV #DISPREG.DISPLAY :POINT TO SOFTWARE DISPLAY REGISTER 
(1) 002234 004737 017342 CALL FALCON :"CHECK FOR FALCON (KXT11) ::GPA 
(1) 002240 001405 BEQ 1000$ ; BR IF NOT 33 
(1) 002242 004737 000570 CALL - FALCINI ; YES. INIT FOR FALCON : GPA 
1) 002246 042737 000040 000032 eee BIC #40,EMTVEC+2 : LOWER EMT TO 6. ;3GPA 
(1) 002254 105737 001422 TSTB _—sCINIFLG sHAVE WE ALREADY BEEN HERE TODAY? 
(1) 002260 001010 BNE 10$ “IF SO, SKIP PRINTING THE TITLE 
(1) 002262 023727 000042 004340 CMP a#42.4SENDAD §:I1F RUNNING UNDER ACT 
(1) 002270 001402 BEQ 1$ “DON'T PRINT TITLE 
(1) 002272 104402 001000 TYPE  ,MTITLE “PRINT THE DIAGNOSTIC® $ TITLE 
(1) 002276 105337 001422 1$: DECB _—sC'INIFLG *SET THE ONCE FLAG 
(1) 002302 105737 001141 10$ TSTB © SENVM * DETERMINE GHE THER APT SIZING SHOULD BE DONE 
(1) 002306 100004 BPL 15$ *IF NOT, GO CHECK FOR AUT ING 
(1) 002310 004737 011260 JSR PC, SETAPT “OTHERWISE, GO DO APT SIZING FROM ETABLE 
(1) 002314 000137 003630 JMP 105$ °GO PRINT D2ZV STATUS. T ) 
(1) 002320 005737 000042 15$: TST an42 * CHAINED UNDER XXDP ?? ::GPA 
(1) 002324 001404 BEQ 16$ : BR IF NO ::GPA 
(1) 002326 004737 011260 CALL §_SETAPT * YES, SET-UP FROM ETABLE 2: GPA 
(1) 002332 000137 003630 JMP 105$ * AND P ::GPA 
(1) 002336 004737 007176 16$: CALL  GETSWR ; GET INITIAL SWITCH SETTING.  ;:GPA 
(1) 002342 032777 000001 176734 BIT #SWO00, aSWR *RESELECT ? 
(1) 002350 001002 BNE 0$ “IF YES, GO SET UP THE INFORMATION 
(1) 002352 000137 002654 JMP 5 *IF NO, SKIP THE INTERROGATION 
(1) 002356 012700 001500 20$: MOV #D2V.MAP,RO ;POINT TO THE BEGINNING OF THE MAP TABLE 
(1) 002362 105037 001423 CLRB =~ HDRFLG A MAP GETS PRINTED 
(1) 002 005020 25$: CLR (RO)+ “CLEAR A TABLE LOCAT 
(1) 002370 020027 001740 CMP RO.ADZV.END *HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
(1) 002374 001374 BNE “IF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE 
(1) 002376 105337 001422 DECB ~—_INIFLG * INSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 
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CVDZAC.P11 10-AUG=81 10:55 PROGRAM INITIALIZATION AND START UP. SEQ 0037 


(1) 

(1) sTHE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 

(1) “TABLE AND SET UP THE DIAGNOSTIC. 

(1) :GET THE BASE ADDRESS OF THE DZV11's 

(1) 002402 GETCSR= POINTER FOR FALCON TWEAKER  ;;:GPA 

(2) 002402 10440 INSTR ‘CALL THE STRING INPUT ROUTINE 

(2) 002404 003074 91$ “POINTER T GE TO 

(2) 002406 104405 PARAM “CALL THE OCTAL TC ASCII CONVERT ROUTINE 

(2) 002410 160000 160000 “LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002412 163770 163770 “HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002414 001500 DZCRO “POINTER TO MAP LOCATION T0 BE FILLED 

(2) 002416 007 .BYTE 7 ;MASK OF INVALID BITS FOR THIS PARAMETER 

(2) 002417 001 “BYTE 1 ER OF PARAMETERS TO STORE 

(1) 002420 013737 001500 001174 MOV DZCRO, $BASE “COPY BASE ADDRESS TO ETABLE 

(1) *GET THE ‘BASE VECTOR ADDRESS 

(1) 002426 GETVEC= POINTER FOR FALCON TWEAKER  :;:GPA 

(2) 002426 104403 INSTR ‘CALL THE STRING INPUT ROUT INE 

(2) 002430 003140 92$ “POINTER TO MESSAGE TO 

(2) 002432 104405 PARAM “CALL THE OCTAL TO ASCII CONVERT NE 

(2) 300 300 “LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002436 000 776 “HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002440 001502 pZVCO “POINTER TO MAP LOCATION TO BE FILLE 

(2) 002442 003 BYTE 3 “MASK OF INVALID BITS FOR THIS PARAMETER 

(2) 002443 001 ‘BYTE 1 “NUMBER OF PARAMETERS TO STORE 

1) 002444 013737 001502 001170 MOV DZVCO.$VECT1 :COPY VECTOR TO ETABLE 

(1) :GET THE MODE OF OPERATION (E,1,S) 

(2) 002452 104403 INSTR 3 CALL THE STRING INPUT ROUTINE 

(2) 002454 003367 96$ “POINTER TO THE MESSAGE TO BE PRINTED 

(2) 002456 104406 SETFLG “CALL THE MAINTENANCE FLAG SETUP ROUTINE 

(2) 002460 001510 MANTO “THIS IS THE FLAG BEING SETUP 

(1) *GET THE NUMBER OF DZV11°S RUNNING 

(2) 002462 104403 INSTR sCALL THE STRING INPUT ROUTI 

(2) 002464 003324 95$ *POINTER TO MESSAGE TO 

(2) 002 104405 PARAM “CALL THE OCTAL TO ASCII CONVER 

(2) 002470 1 “LOWEST LEGITIMATE VALUE OF EXP ETeD RESPONSE 
(2) 002472 000020 16. “HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002474 001344 STMP1 sPOINTER TO MAP LOCATI 10 BE FILLED 

(2) 002476 000 .BYTE 0 MASK OF iNVALID BITS FOR THIS PARAMETER 

(2) 002477 001 “BYTE 1 “NUMBER OF PARAMETERS TO STORE 

(1) 002500 012737 000017 001504 MOV #17.LINEO *SET UP DEFAULT LINES 

(1) 002506 012737 017470 001506 MOV #17470,PARO 3SET UP DEFAULT LPR PARAMETER 

(1) SRECEIVER ON: 19.2 KBAUD; 2STOP BITS; 8 BIT/CHAR 
(1) 002514 032777 000010 176562 BIT #SW03,aSWR *DO YOU WANT PARAMET 

(1) 002522 00140 BEQ 30$ “IF NO, SKIP THE PARAMETER CALL 

(1) 002524 004737 002704 JSR PC,65$ 26 

(1) 002530 012737 000001 001410 30$: MOV #1.SAVACTV INITIALIZE ACTIVE DEVICE SELECTION PARAMETER 
(1) 002536 113737 001344 001414 MOVB  $TMP1,DZVNUM §;:COPY THE NUMER OF DEV 

(1) 002544 005337 001344 35$: DEC STMP1 *$TMP1 CONTAINS THE COUNT OF UNINITIALIZED 
(1) 002550 001404 BEQ 40$ : SELECTED DEV VICES 

(1) 002552 261 SEC *SET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
(1) 002554 006137 001410 ROL SAVACTV “POINT TO THE NEXT DEVICE 
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(1) 002560 771 BR 35$ :G0 DO THIS PROCEDURE AGAIN 

(1) 002562 013737 001410 001346 40$: MOV SAVACTV,$TMP2 :# OF TIMES 

(1) 002570 012700 001500 MOV #DZCRO,RO “SET A POINTER TO THE SPECIFIED INFORMATION 
(1) 002574 012701 001512 MOV #DZCR1,R1 “POINT R71 TO THE REST OF THE MAP TABLE 

(1) 002600 012702 001204 MOV #SDDWO,R2 “POINT TO ETABLE’S DEVICE DESCRIPTOR WORDS 
(1) 002604 000241 CLC ‘INITIALIZE THE ‘‘C’’ BIT FOR A ROTATION 

(1) 002606 006037 001346 ROR $TMP2 :SKIP MAPPING SETUP FOR DEVICE O- IT'S DONE 
(1) 002612 006237 001346 45$: ASR STMP2 “ISOLATE A SELECTION FLAG IN THE “‘C’’ BIT 

(1) 002616 103404 BCS 50$ “IS THIS DEVICE SELECTED? IF YES, GO LOAD TABLE 
(1) 002620 012711 177777 MOV #-1,(R1) “TERMINATE THE LIST 

(1) 002624 000137 003572 JMP 100$ *GO TO THE NEXT BLOCK 

(1) 002630 012011 50$: MOV (RO)+, (R1) “ADDRESS 

(1) 002632 062721 000010 ADD #10, (R1)+ “POINT TO THE NEXT DZV11 ADDRESS VALUE 

(1) 002636 012011 MOV (ROS +, (R1) : 

(1) 002640 062721 000010 ADD #10, (R1)+ “POINT TO THE NEXT VECTOR VALUE 

(1) 002644 012021 MOV (ROS+, (R1)+ *LINES 

(1) 002646 012021 MOV (RO)+, (R1)+ * PARAMETERS 

(1) 002650 012021 MOV (RO) +, (R1)+ “MAINTENANCE MODE 

(1) 002652 000757 BR 

(1) 002654 032777 000010 176422 S$: BIT #SW03,aSWR sASK PARAMETERS ? 

(1) 002662 601002 BNE 60$ *IF NO, GO DO AUTO SIZING 

(1) 002664 000137 003572 JMP 100$ *60 SET UP FOR AUTO SIZING 

(1) 002670 004737 002704 60$: JSR PC,65$ *GO ASK PARAMETERS 

(1) 002674 105337 001422 DECB _—sINIFLG “INSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
(1) 002700 000137 003630 JMP 105$ *GO TO THE NEXT BLOCK 

1) :GET THE ACTIVE LINES PARAMETER 

(1) 002704 65$: 

(2) 002704 104403 INSTR :CALL THE STRING INPUT ROUTINE 

(2) 002706 003201 93$ “POINTER TO MESSAGE TO BE PRINTED 

(2) 002710 104405 PARAM “CALL THE OCTAL TO ASCII CONV 

(2) 002712 000001 “LOWEST LEGITIMATE VALUE OF EXPECTED RESPONS 
(2) 002714 17 “HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002716 001504 LINEO “POINTER TO MAP LOCATION TO BE FILLE 

(2) 002720 360 -BYTE 360 “MASK OF INVALID BITS FOR THIS PARAMETER 

(2) 002721 001 "BYTE 7 _ NUMBER OF PARAMETERS TO STORE 

(1) 002722 105037 001423 CLRB =~ HDRFLG “MAKE SURE THE CHANGES ARE PRINTED 

(1) :THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 

(1) "1S LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 

(1) 002726 005737 001510 TST MANTO :IS STAGGERED THE MODE OF OPERATION? 

(1) 002732 100021 BPL 85$ “IF NOT, SKIP THIS SEGMENT 

(1) 002734 013703 001504 MOV LINEO,R3 “GET A SCRATCH COPY OF THE ACTIVE LINES 

(1) 002740 006003 70$: ROR R3 “GET A LINE SELECTION BIT(EVEN NUMBER LIN 
(1) 002742 103410 BCS 80$ “IF IT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO 
(1) 007744 001414 BEOQ 85$ “IF ALL HAVE CHECKED, CONTINUE PROCESSING 
(1) 002746 00620 ASR “IF IT IS 0,CHECK TO SEE IF THE NEXT IS TOO 
(1) 002750 10337 BCC 70$ “IF THIS ONE'S 0 T O CHECK THE NEXT PAIR 
(1) 002752 104402 001356 75$: TYPE  ,$QUES “THIS IS AN INCORRECT PARAMETER 

(1) 002756 104402 010176 TYPE MBADLN “LET THE USER KNOW 

(1) 002762 000750 BR $ °GO GET THE CORRECT PARAMETER 

(1) 002764 001772 80$:  BEQ 75$ “IF ANOTHER FLAG ISN'T SET, THERE'S AN ERROR 
(1) 002766 006203 ASR 3 “GET THE NEXT FLAG 

(1) 002770 103370 BCC 75$ “IF IT ISN'T SET, THERE'S AN ERROR 
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(1) 002772 000241 CLC s INITIALIZE THE ‘‘C’’ BIT FOR TESTING OF THE NEXT PAIR 
(1) 002774 000761 BR 70$ “GO TEST THE NEXT PAIR OF FLAGS 
1} :GET THE LINE PARAMETER REGISTER ARGUMENT 
(1) 002776 85$: 
(2) 002776 104403 INSTR sCALL THE STRING INPUT ROUTINE 
(2) 00 003254 94$ “POINTER TO MESSAGE TO BE PRINTED 
(2) 003002 104405 PARAM “CALL THE OCTAL TO ASCII CONVERT ROUTI 
(2) 003004 00 0 “LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(3) 000017 1 “HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003010 001506 PARO “POINTER TO MAP LOCATION TO BE FILLED 
(2) 003012 000 .BYTE 0 “MASK OF INVALID BITS FOR THIS PARAMETER 
(2) 003013 001 “BYTE 1 “NUMBER OF PARAMETERS T 
(1) 003014 012702 001594 MOV #LINEO,R2 “POINT TO THE LINE SELECTION PARAMETER 
(1) 003020 012703 001506 MOV #PARO,R3 “POINT TO THE CHOSEN PARAMETER 
(1) 003024 011304 MOV (R3) .R4 ;USE BAUD RATE AS AN INDEX IN DELAY TABLE 
(1) 003026 0063C4 ASL R4 ALIGN INDEX ON WORD BOUNDARY 
(1) 003030 016437 017302 006406 MOV DLYTBL(R4), puyeni s sSET THE DELAY COUNT FOR THIS BAUD RATE 
(1) 003036 000313 SWAB ss«(R’'3) *PLACE IN HIGH BYTE 
(1) 0 052713 010070 BIS #10070, (R3) “PLACE EXTRA PARAMETERS INTO LOC 
(1) 003044 011262 000012 90$: MOV (R2), 12(R2) “LOAD THE LINES 
(1) 003050 011363 000012 MOV (R3) .12(R3) “LOAD THE PARAMETERS 
(1) 003054 062702 000012 ADD #12, Re “POINT TO THE NEXT SET 
(1) 003060 062703 000012 ADD #12,R > 2. OF BOTH PARAMETERS 
(1) 003064 020327 001734 CMP R3,HPAR17 “HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
(1) 003070 001365 BNE 908 sIF T, 80 LOAD MORE PARAMETERS 
(1) 003072 900207 _ RTS RETURN TO CALLING BLOCK 
(1) 003074 030600 052123 041440 91S: .ASCIZ <300>/1ST CSR ADDRESS (160000: 163770): / 
(1) 003140 030600 052123 053040 92$:  .ASCIZ <200>/1ST VECTOR ADDRESS (300: 
(1) 003201 200 044514 042516 93$:  .ASCIZ <200>/LINES ACTIVE BY BIT <IN OCTAL> (001 17): / 
(1) 003256 042200 043105 052501 94$:  :ASCIZ <200>/DEFAULT BAUD RATE <IN OCTAL>(00:17): / 
(1) 003324 021600 047440 020106 95$:  .ASCIZ <200>/# OF 0ZV11'S <IN OCTAL> “a 20): / 
(1) 00336 200 040515 047111 96$: ASCII <200>/MAINTE E/ 
(1) 003410 020200 042533 052130 “ASCII <200>/ CEXT 5> (E)I/ 
(1) 003444 020200 044533 952116 "ASCII <200>/ CINTERNAL <DZVCSRO3=1>(1)I/ 
(1) 003501 200 055440 052123 "ASCIZ <200>/ ESTAGGERED <H329> (S)J: / 
(1) 003540 042600 052116 051105 97%:  .ASCIZ <200>/ENTER DELAY PARAMETER: / 
(1) 003572 EVEN 
(1) 003572 100$: 
(1) 003572 122737 000377 001422 CMPBs«#377, INIFLG sONLY DO AUTO SIZE ON 1ST START 
(1) 003600 001013 BNE 
(1) 003602 032777 000200 175474 BIT #B1T7,aSWR ‘BIT 17=1?? 
(1) 003610 001007 BNE 105$ :BR IF NO AUTO SIZE 
(1) 003612 005737 017356 TST KXTFLAG > FALCON ? GPA 
(1) 003616 00140¢ BEQ 1002$ : SKIP NEX xt IF NOT. GPA 
(1) 003620 000137 002356 JMP 20$ YES, DON'T AUTO=SIZE. 3:GPA 
(1) 003624 } 1002$: ::GPA 
(1) 003624 004737 05.1406 JSR PC,AUTO.SIZE | ;:GO DO THE AUTO SIZE 
(1) 003630 105737 00142 105$: TSTB  HDRFLG 3HAS THE TABLE BEEN TYPED ver? 
(1) 003634 001021 BNE 120$ “IF SO, DON'T TYP 
(1) 003636 105337 001423 DECB  HDRFLG “INDICATE THAT THE TABLE WILL BE TYPED 
(1) 003642 104402 010150 TYPE XHEAD “TYPE MAP HEADER 
(1) 00364 0127 1500 MOV #DZV.MAP,RO “SET POINTER 
(1) 003652 01003 1346 110$: MOV RO. $TMP :POINT TO THE MAP LOCATION 
(1) 003656 012037 001346 MOV (RO)+,$TMP2 “SET DATA 
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177777 


001406 
007740 
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115$: 


120$: 


121$: 


122$: 
126$: 


127$: 
135$: 


140$: 
145$: 


1001$: 


;TEST START AND 


-BEGIN: MOV 
MTPS 





0 
1 
DZVACTV,SAVACTV 
122$ 


MERR3 
i21$ 


SAV. 
DZVACTV,STMP1 
STMP 


eh 


#300,R0 
#302,R1 
a (RO) 


(RO) (R1)+ 
KXTFLAG 
1001$ 
RO.4#400 
#1000,R0 
145$ 


RESTART 


#STACK SP 
#MASK 





SEQ 0040 


s END OF LIST? 


; YES 

;CALL_THE OCTAL TO ASCII CONVERSION ROUTINE 
:CONVERT THE DATA AT THIS ACDRESS 
:GO PRINT THE NEXT PARAMETER 
+ COPY BIT MAP OF SYSTEM DEVICES ACTIVE 

OPY NO. OF SYSTEM DEVICES. ACTIVE 
:DESELECT SPECIFIC DEVICES?? 


;CALL_THE STRING INPUT ROUTINE 
MESSAGE Hs BE PRINTED 





TLE 
HIGHEST LEGITIMATE VALUE OF 
TER TO MAP LOCATION TO BE FILLED 
MASK OF INVALID BITS FOR THIS PARAMETER 
R OF PARAMETER RS TO STORE 
31S We VALUE VALID? 


;BRANCH IF YES 
:1F NOT THEN TYPE ERROR 
760 REASK QUESTION 
:CLEAR NO. OF DEVICES BEING TESTED 
:COPY BIT MAP OF ACTIVE DEVICES BEING TESTED 
;SHIFT OUT AN ACTIVE B 
:IF NOT ACTIVE SKIP INCREMENT 
;IF ACTIVE RECORD I 
:1F ALL ACTIVE BITS RECORDED DON'T BRANCH 
; CHECK TO SEE IF DELAY COUNT CHANGES 
EAR Str marr ine 


L 
sLOWEST LEGITIMAT OF EXPECTED RESPONSE 
:HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
:POINTER TO MAP LOCATION TO BE FILLE 
;MASK OF INVALID BITS FOR THIS PARAMETER 

ER PARAMETERS TO STORE 


: IF FALCON... ::GPA 
33GPA 

:.-eSTOP AT 400. 2 GPA 

: SKIP NEXT 32:GPA 
3:GPA 

sALL DONE?? 

:BR IF NO. 

sSET UP ST 


ACK 
:LOCK OUT INTERRUPTS 
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CVDZAC.P11 PROGRAM INITIALIZATION AND START UP. SEQ 0041 
(1) 004104 005737 000042 TST an42 :1$ PROGRAM UNDER MONITOR CONTROL 
(1) 00611 00101 BNE a “BR IF YES 
(1) 004112 032777 000004 175164 BIT #B1T2,aSWR “CHECK FOR LOCK ON TEST 
(1) 004120 0014 BEQ 1$ *BR IF NO LOCK DESIRED. 
(1) 004122 104402 007764 TYPE  ,MLOCK *TYPE LOCK SELECTED. 
1) 0041 6 012737 000240 004416 MOV a -TTST :ADJUST SCOPE ROUTINE. 
(1) 006136 0137 004664 004416 1$: MOV BRW i PREPARE NORMAL SCOPE ROUTINE 
(1) 004144 127 7 010552 001252 28: MOV OCYELE SLPADR “START AT CYCLE’ FIND WHICH DEVICE TO TEST 
(1) 004152 113737 001416 00141 SAVNO, SAVNUM : COPY ACTIVE DEVICES BEING TESTED 
(1) 004160 10440¢ 00765 TYPE MR TYPE | “RUNNING 
(1) 004164 000177 175062 @SLPADR “START TESTING 
3028 GPA PRGEND D27V11,<END PASS CVDZA-B8 >,10. 
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CVDZAC.P11 10-AUG=81 10:55 END OF PASS ROUTINE 


S 
S 


sEA> OF PASS 





(2) ‘TYPE NAME OF TEST 
(2) “UPDATE PASS COUNT 
(2) “CHECK FOR EXIT TO ACT-11 
(3) “RESTART 
.SBTTL END OF PASS ROUTINE 
(4) FE AAAAARAAAAARERERERAREREEAREEAEARAAARERERAREERAERRRERERERRERERRERERE 
(3) :*INCREMENT THE PASS NUMBER ($PASS) 
(3) *#]F THERES A MONITOR GO TO IT 
(3) *wJF THERE ISN'T JUMP TO CYCLE 
(3) 004170 SEOP: 
(5) 004170 SCOPE 
(5) 004172 005037 001262 CLR SERRPC sCLEAR LAST ERROR PC 
(5) 004176 105037 00124 CLRB = S$ERFLG “CLEAR ERROR FLAG 
(5) 004202 104402 007631 TYPE ,MEPASS “TYPE END PASS 
(5) 004206 104402 010013 TYPE § MCSRX ‘TYPE CSR 
(5) 004212 104412 004354 CNVRT ,XCSR “SHOW IT 
(5) 004216 104402 010021 TYPE ,MVECX ‘TYPE VECTOR 
(5) 004222 104412 004362 CNVRT -XVEC :SHOW I 
(5) 004226 005237 001126 INC $PASS “RAISE PASS COUNT 
(5) 004232 104402 010027 TYPE § ,MPASSX “TYPE PASSES 
(5) 004236 104412 004370 CNVRT  .XPASS “SHOW IT 
(5) 004242 005337 001126 DEC $PASS “RESTORE PASS COUNT 
(5) 004 46 104402 010040 TYPE §,MERRX [TYPE ERRORS 
(5) 004252 104412 004376 CNVRT <x : iT 
(5) 004256 005237 001130 INC $DEVCT “INC SEVCNT FOR APT 
(5) 004262 105337 001415 DECB  SAVNUM sARE ALL DEVICES TESTED? 
(5) 004266 001030 BNE SDOAGN ; . 
(5) 004270 113737 001416 001415 MOVB § SAVNO,SAVNUM :RESTORE THE COUNT 
(3) 004276 005037 001354 CLR STIMES *:Z2ERO THE NUMBER OF ITERATIONS 
(3) 004302 005237 001126 INC SPASS *: INCREMENT THE PASS NUMBER 
(3) 004306 042737 100000 001126 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(3) 004314 005327 DEC (PC)+ :: LOOP? 
(3) 004316 000001 SEOPCT: .WOR 
(3) 004320 003013 BGT SDOAGN ss YES 
(3) 004322 012737 MOV (PC)+,a(PC)+ §3;RESTORE COUNTER 
(3) 004324 000001 SENDCT: .WORD 1 
(3) 004 526 004316 SEOPCT 
(3) 004330 013700 000042 $GET42: MOV a#42,RO0 ::GET MONITOR ADDRESS 
(3) 004334 001405 EQ SDOAGN * BRANCH IF NO MONITOR 
(3) 004336 000005 RESET **CLEAR THE WORL 
(3) 004340 004710 SENDAD: JSR PC, (RO) *:GO0 TO MONIT 
(3) 004342 000240 NOP ::SAVE ROOM 
(3) 004344 000240 NOP * FOR 
(3) 004346 000240 NOP *ACT11 
(3) 004350 SDOAGN: 
(3) 004350 000137 JMP a(PC)+ : sRETURN 
(3) 004352 010552 €RTNAD: .WORD CYCLE 
(2) 004354 000001 XCSR: 1 
- (2) 006356 006 002 .BYTE 6,2 
(2) 004360 002010 DZVCSR 
(2) 004362 000001 XVEC: 1 
(2) 004364 003 002 BYTE 3,2 
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CVDZAC.P11. ‘1 Ahh 10.95 END OF PASS ROUTINE SEQ 0043 
(2) 004 002040 DZVRIV 
(2) 004370 000001 XPASS: 1 
(2) 00437 006 002 BYTE 6,2 
(2) 004 74 001126 SPASS 
(2) 76 000001 KERR: 1 
(2) 004400 906 002 .BYTE 6,2 
004402 001256 SERTTL 
:SCOPE LOOP AND IT©RATION HANDLER 
(2) 
3 .SBTTL SCOPE HANDLER ROUTINE 
(4) SeeEe MOMITIME COnTagee THE LOODIME GF GUMTEGTS. $7 Will iechEnent 
(3)  STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(3) *#AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(3) **AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08> 
(3) ; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(3) = *SW14= LOOP ON TEST 
(3) + *SW11=1 INHIBIT ITERATIONS 
(3) **CALL 
tt ;* SCOPE ::SCOPE=I0T 
(3) 004404 SSCOPE: 
(5) 004404 005037 001262 -SCOPE: CLR SERRPC sCLEAR LAST ERROR PC. 
(5) 004610 022716 012114 CMP #TST142, (SP) :1S THIS THE SCOPE AT THE BEGINNING OF TST1? 
(5) 004414 001413 BEQ SXTSTR 0, DON'T ON 
(5) 004416 000406 TTST: 1$ “GOTO 1$ (CIF LOCK SWO2=1; THIS LOC =240) 
(5) 004420 105777 174664 TSTB a$TKS “KEYBOARD DONE? 
(5) 0€04424 100067 BPL SOVER “BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
(5) 004426 017766 174660 177776 MOV @STKB,-2(SP) CLEAR DONE BIT 
(3) 004434 032777 040000 174642 1$: BIT #B1T14,aSWR sLOOP ON PRESENT TEST? 
(3) 004442 001060 BNE SCVER < VES IF Sw14=1 
(3) -HHHHASTART OF CODE FOR THE XOR TESTERAANEM 
(3) 004444 000416 | $XTSTR: BR 6% si IF ING ON THE ‘‘XOR’’ TESTER CHANGE 
(3) *:THIS INSTRUCTION TO A ° =240) 
(3) 004446 013746 000004 MOV AFERRVEC ~ (SP) * SAVE THE CONTENTS OF THE ERROR VECTOR 
(3) 004452 012737 004472 000004 MOV W5$,QWERRVEC = ;SET_FOR TIMEOUT 
(3) 004460 005737 177060 TST 37177060 OUT ON XOR? 
(3) 004464 012637 4 MOV (SP) +, a#ERRVEC $ IRESTORE \HE ERROR VECTOR 
(3) 004470 000436 BR SSVLAD *:GO TO THE NEXT TE 
(3) 004472 022626 5$: CMP (SP)+, (SP)+ ;3CLEAR THE STACK AFTER A TIME OUT 
(3) 004474 012637 000004 MOV (SP)+  a#ERRVEC ::RESTORE THE ERROR VECTOR 
(3) 004500 41 BR $ LOOP HE PRESENT TEST 
(3) 004502 6$::A4M#HHHEND OF CODE FOR THE XOR fESTERMAAER 
(3) 004502 105737 001247 2$: TSTB =—s- SERFLG ;7HAS AN ERROR OCCURRED? 
(3) 004506 0014 BEQ 3$ “BR IF 
(3) 004510 105037 001247 4$: CLRB = S$ERFLG $ ZERO THE ERROR FLAG 
(3) 004514 005037 001354 CLR TIMES L HE NUMBER OF ITERATIONS TO MAKE 
(3) 004520 032777 004000 174556 3S: BIT #B1T11,aSWR 3 INHIBIT ITERATIONS? 
(3) 004526 001011 BNE 1$ YES 
(3) 004530 005737 001126 TST SPASS :iIF POST PASS OF PROGRAM 
(3) 004534 001406 BEQ 1$ INHIBIT ITERATIONS 
(3) 004536 52 001250 INC SICNT *: INCREMENT ITERATION COUNT 
(3) 004542 023737 001354 001250 CMP STIMES,SICNT 33 CHECK THE NUMBER OF ITERATIONS MADE 
(3) 004550 002015 BGE SOVER =:BR IF MORE ITERATION REQUIRED 


CVDZA-C_MACYT1 ae Ae + 10-AUG-81 11:08 PAGE 25-25 
10-AUG-81 10: SCOPE 











CVDZAC.P11 0:55 HANDLER ROUTINE SEQ 0044 
(3) 004552 4 7 000001 001250 1S: #1,S$1CNT s sREINITIALIZE THE ITERATION COUNTER 
(3) 13737 004 6 001354 MO SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
(3) 004566 10 ¢ 7 001246 SSVLAD: TNM *:COUNT TEST NUMBE 
(3) 906572 113737 001 46 001124 MOVB #$TSTNM.STESTN ::SET TEST NUMBER IN APT MAILBOX 
(3) 004 011637 00125 (SP) ,SLPADR *:SAVE SCOPE LOOP ADDRESS | 
(3) 004604 013777 001246 174474 SOVER: STSTNM, @DISPLAY :;:DISPLAY TES 
(3) 004612 01 216 001 52 SLPADR, (SP) * FUDGE RETURN ADDRESS 
(5) 004616 004737 00715 PC, SERV. “FIND OUT IF *G WAS TYPED 
(5) 004622 105037 001424 MNTFLG “CLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST 
(5) 004626 005737 001372 MODE “HAS THE MODE BEEN CHANGED? 
(5) 004632 001003 4$ :IF NOT INTERNAL , GO DO A TEST 
(5) 004634 112737 000010 001424 WMAINT.MNTFLG :IF INTERNAL MODE NOW, SET THE MAINTENANCE BIT 
(5) 004642 000002 4$: *GO DO THE TEST 
(5) 004644 000406 BRW: 406 
(3) 000095 SMXCNT: 5 ::MAX. NUMBER OF ITERATIONS 
(1) :CHECK FOR FREEZE ON CURRENT DATA 
(1) 
(1) 004650 932777 001000 174426 .SCOP1: BIT #SW09,aSWR :1S SwO9=1(SET)? 
(1) 004656 001405 BEQ 1$ “BR IF NOT SET. 
(1) 004660 005737 001364 TST LOCK “1S THERE A TIGHT LOOP SPECIFIED? 
(1) 004664 001402 BEQ 1$ “IF NO, RET 
(1) 004666 013716 001364 MOV LOCK, (SP) “IF YES, GOTO THE ADDRESS IN LOCK. 
(1) 004672 000002 1$: RTI *GO BACK. 
(1) 004674 032777 010000 174402 .TYPE: BIT #SW12,aSWR s INHIBIT ALL PRINTOUT?? 
(1) 004702 001403 BEQ $TYPE “IF NOT, GO TYP 
(1) 062716 000002 ADD #2, (SP) *SKIP OVER MESSAGE POINIER 
(1) 004710 000002 RTI “RETURN TO WHERE PROCEDURE WAS INVOKED 
(2) .SBTTL TYPE ROUTINE 
‘¢) 23 RERARAAAAAEAAAAARAAEAAAEAERERARAEAEARAAKEAEAEARAAEAAEARAAERARAERERAEARAREARKRKE 
(2) “*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
(2) *®THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(2) * *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(2) * *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
(2) 3 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(2) **CALL: 
(2) **1) USING A TRAP INSTRUCTION 
(2) - TYPE  ,MESADR s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(2) 3* TYPE 
(2) 8 MESADR 
(5} © 
(2) 004712 105737 001323 $TYPE: TSTB $TPFLG ::1S THERE A TERMINAL? 
(2) 004716 100002 BPL 1$ a3 F 
(2) 004720 HALT **HALT HERE IF NO TERMINAL 
(2) 004722 000430 BR Et} + :LEAVE 
(2) 004724 010046 1$: MOV RO,-(SP) * SAVE RO 
(2) 004726 017 000002 MOV a2(SP) RO *:GET ADDRESS OF ASCIZ STRING 
(2) 004732 122737 000001 001140 CMPB ss MAPTENV,SENV =: :RUNNING IN APT MOD 
(2) 004740 001011 BNE *°NO,GO CHECK FOR APT CONSOLE 
(2) 004742 132737 000100 001141 BITB §§ #APTSPOOL.SENVM ::SPOOL MESSAGE TO APT 
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CVDZAC.P11  10-AUG-81 SEQ 0045 
(2) 004750 0014 5 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
(2) 75 0100 004762 MOV RO,61$ *:SETUP MESSAGE ADDRESS FOR APT 
(2) 756 004737 005254 JSR PC, SATY3 *:SPOOL MESSAGE TO APT 
(2) ? 690000 61$: .WORD 0 * sMESSAGE ADDRESS 
(2) 264 132 000060 001141 62$: §# BITB #$#APTCSUP,SENVM ;:APT CONSOLE SUPPRESSED 
(2) 004772 001003 BNE *:YES,SKIP TYPE OUT 
(2) 004774 112046 2$: MOVB  (RO)+,-(SP) *=PUSH CHARACTER TO BE TYPED ONTO STACK 
(3) 776 001005 BNE 4$ *:BR IF IT ISN'T THE TERMINATOR 
(2) 005000 005726 TST (SP)+ *:JF TERMINATOR POP IT OFF THE STACK 
(2) 005002 012600 608: MOV (SP)+,RO s;RESTORE R 
(2) 005 062716 000002 $: ADD #2, (SP) * ADJUST RETURN PC 
(2) 00501 es a RTI : sRETURN 
(2) 005012 122716 000011 4$: C #HT, (SP) * *BRANCH IF <HT> 
(2) 005016 001430 BEQ 
(2) 005020 122716 000200 CMPB ss. CRLF, (SP) : BRANCH IF NOT <CRLF> 
(2) 005024 001006 BN 
(2) 005026 005726 (SP)+ ::POP <CR><LF> EQUIV 
(2) 5030 sees :: TYPE A CR AND LF 
(2) 005032 00135 
(2) 005034 105037 005242 SCHARCNT ::CLEAR CHARACTER COUNT 
(2) 005040 000755 BR 2$ * GET NEXT CHARACTE 
(2) 005042 004737 005124 S$: JSR PC S$TYPEC *:GO TYPE THIS CHARACTER 
(2) 005046 123726 001322 6S: CMPB $FILLC,(SP)+ ::1S IT TIME FOR FILLER CHARS.? 
(2) 005052 001350 BNE 2$ *:IF NO GO GET NEXT CHAR. 
(2) 005054 013746 001320 MOV SNULL ,-(SP) *:GET # OF FILLER CHARS. NEEDED 
(2) :;AND THE NULL CHAR. 
(2) 005060 105366 000001 7$: DECB ~=s:«+1( SP) *:DOES A NULL NEED TO BE TYPED? 
(2) 005064 002770 BLT 6$ *:BR IF NO=-GO POP THE NULL OFF OF STACK 
(2) 005066 004737 005124 JSR PC .$TYPEC **GO TYPE A NULL 
(2) 005072 105337 005242 DECB $CHARCNT *:DO NOT COUNT AS A COUNT 
(<) 005076 000770 BR 33 
(2) sHORIZONTAL TAB PROCESSOR 
(2) 005100 112716 000040 8$: mOvB #* (SP) ::REPLACE TAB WITH SPACE 
(2) 005104 004737 005124 9$: JSR pc $TYPEC :: TYPE A SPACE 
(2) 005110 132737 000007 005242 BITB #7,$CHARCNT *:BRANCH IF NOT AT 
(2) 005116 001372 BNE *:TAB STOP 
(2) 005120 005726 TST (SP)+ *-POP SPACE OFF STACK 
(2) 005122 000724 BR 2$ *:GET NEXT CHARACTER 
(2) 005124 STYPEC: 
(2) 005124 105777 174160 TSTe  aSTKS ::CHAR IN KYBD BUFFER? :MJD001 
(2) 005130 100022 SPL 10$ ::BR IF NOT . 1 
(2) 005132 017746 174154 MOV a$TKB,-(SP) **GET CHAR :MJD001 
(2) 005136 042716 177600 BIC #177600.(SP) § ::STRIP EXTRANEOUS BITS =MJD001 
(2) 005142 122716 000023 CMPB es WS XOFF, (SP) * WAS CHAR XOFF =MJDO001 
(2) 005146 001012 BNE 102$ ::BR IF *MJD001 
(2) 005150 : 101$: :MJD001 
(2) 005150 105777 174134 TST8  aSTKS s:WAIT FOR CHAR *MJD001 
(2) 005154 100375 BPL 101$ :4JD001 
(2) 005156 117716 174130 MOVB  a$TKB, (SP) ::GET C =MJD001 
(2) 005162 042716 177600 BIC #177600,(SP) STRIP IT >MJD001 
(2) 005166 122716 000021 CMPB ss #S$XON,, (SP) *:WAS IT XON? :MJD001 
(2) 005172 001366 BNE 101$ *:BR IF NOT =MJD001 
(2) 005174 102$: >MJD001 
(2) 005174 005726 TST (SP)+ ssFIX STACK 3MJD001 
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SEQ 0046 
(2) 10$: :MJD001 
176112 asTPs ::WAIT UNTIL PRINTER IS READY apes 
(3) 000002 174104 2(SP) ,aSTPB s:LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 #CR,2(SP) 3318 CHARA ACTER A CARRIAGE RETURN? 
005242 SCHARCNT 3s VES==CLEAR CHARACTER COUNT 
(2) 000012 000002 1S: #LF,2(SP) 21S CHARACTER A LINE FEED? 
(2) STYPEX ;3BRANCH IF YES 
(2) INCB =. (PC) + = COUNT THE CHARACTER 
(2) SCHARCNT:.WORD 0 CHARACTER COUNT STORAGE 
STYPEX: RTS PC 
3 .SBTTL APT COMMUNICATIONS ROUTINE 
( ) REAR AAAAAAAEAAAEAAAAAEAEEEAEAAEAEAEEAAAEARAAEAEAEAAAERERAEEARAAARAEAAAREERE 
(2) 005246 112737 000001 005512 $ATY1: MOVB #1, $FFLG +:TO REPORT FATAL ERROR 
(5) 005254 112737 000001 005510 $ATY3: MOVB #1,$MFLG *:TO TYPE A MESSAGE 
(2) 005262 00040 BR SATYC 
(2) 003264 112737 000001 005512 SATY4 MOVB 4#1,S$FFLG ::TO ONLY REPORT FATAL ERROR 
(4) 005272 010046 MOV RO,-(SP) ;sPUSH RO ON STACK 
(4) 005274 010146 MOV R1.-(SP) “PUSH R1 ON STACK 
(2) 009276 105737 005510 TSTB 0s. SMFLG $ SHOULD. TYPE A MESSAGE? 
(2) 005302 001450 BEQ 5 
(2) 005304 122737 000001 001140 CMPB ss HAPTENV, SENV : ZOPERATING UNDER APT? 
(2) 005312 001031 BNE F BR 
(2) 005314 132737 000100 001141 BITB § #APTSPOOL,SENVM $3 SHOULD. SPOOL MESSAGES? 
(2) 005322 001425 BEQ *IF NOT: 
(2) 005324 017600 000004 MOV a4 (SP) RO * GET MESSAGE ADDR. 
(2) 005330 062766 000002 000004 ADD #2,4(SP) ETURN ADDR. 
(2) 005336 005737 00112 1$: TST SMSGTYPE 3 SEE IF BONE W/ LAST XMISSION? 
(2) 005342 001375 BNE 1$ *IF NOT: WAIT 
(2) 005344 010037 001134 MOV RO.SMSGAD : Pur ADDR IN MAILBOX 
(2) 005350 105720 2$: (RO)+ *FIND END OF MESSAGE 
(2) 005352 001376 2$ 
(2) 005354 163700 001134 SMSGAD RO am START OF MESSAGE 
(2) 005360 006200 33GET MESSAGE LNGTH IN WORDS 
(2) 005362 010037 001136 RO, SMSGLGT “PUT LENGTH IN MAILBOX 
(2) 005366 012737 000004 001120 #4. SMSGTYPE «TELL APT TO TAKE MSG. 
(2) 005374 000413 
(2) 005376 017637 000004 005422 3S: 04 (SP) 348 ;3PUT MSG ADDR IN JSR LINKAGE 
(2) 005404 766 000002 000004 He 54 ;BuMP RE ADDRESS 
(4) 005412 01 746 4 | son sp) : PUSH 199776 ON STA 
(2) 005416 004737 004712 C,$TYPE **CALL TYPE MACRO 
(2) 005422 000000 43: 
(2) 005424 5$: 
(2) 005424 105737 005512 10$: SFFLG ::SHOULD REPORT FATAL ERROR? 
(2) 0054 001416 12$ *:IF NOT: 
(2) 005432 005737 001140 SENV 3 RUNNING UNDER APT? 
(2) 005436 001413 12$ 
(2) 005440 005737 001120 11$ SMSGTYPE : FINISHED LAST MESSAGE? 
(2) 005444 001573 11$ F NOT: WAIT 
(2) 005 17637 001122 a4 (SP), $FATAL SI GET ERROR # 
(2) 005454 062766 000002 000004 #2.4(SP) + :BUMP RETURN ADDR. 
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(2) 00 0052 7 1120 INC SMSGTYPE s:TELL APT TO TAKE ERROR 
(2) 105037 005 12$: CLRB  $FFLG *=CLEAR FATAL FLAG 
(2) 0054 1050 7 005511 CLRB * CLEAR LOG 
(2) 005476 105037 005510 CLRB * CLEAR MESSAGE FLAG 
(4) 00550 012601 MOV 33POP STACK INTO Ri 
(4) 0055 012600 MOV “POP STACK INTO RO 
(2) 005 20 TS < TRETURN 
(2) 00551 000 LG: .BYTE *:MESSG. FLAG 
(2) 005511 000 SLFLG: .B :;L0G FLAG 
(2) 005512 oy? SFFLG: .BY s:FATAL FLAG 
(2) 005514 
(2) 000200 APTSIZE=< 
(2) 000001 TENV= 
(2) 000100 APTSPOOL=100 
(2) 0 APTCSUP=040 
1) : STRING INPUT ROUTINE _ 
(1) 
(1) 005514 010346 INSTR: R3,-(SP) sSAVE R3 ON STACK 
(1) 005516 010446 MO R4.-(SP) “SAVE R4 ON STACK 
(1) 005520 017637 000004 005536 a4(SP),.MSG “GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
(1) 005526 062766 000002 000004 ADD #2,4(SP) “POINT TO INSTRUCTION AFTER ADDRESS POINTER 
(1) 005534 104402 .INST1: ;PRINT THE MESSAGE 
(1) 005536 000000 “MSG: 0 SAGE IS POINTED TO FROM HERE 
(1) 005540 012704 010446 a INBUF .R4 “POINT T R4 TO THE INPUT ER 
(1) 005544 012703 000007 #7,R *SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
(1) 005550 105777 173534 1$: asTKs “HAS A CHARACTER BEEN RECEIVED? 
(1) 005554 100375 1$ . P WAITING F 
(1) 005556 117714 173530 a$TKB, (R4) 
(1) 005562 142714 000200 #200, (R4) 
(1) 005566 122427 000015 (R4)+.415 
(1) 005572 001417 INSTR? 
(1) 005574 105777 173514 2$: asTPS IF NOT. 
(1) 005600 100375 2$ IF WE T, 
(1) 005602 017777 173504 173506 a$TKB,a$TPB “ECHO THE CHARACTE Ack 
(1) 005610 005303 3 SREDUCE THE NUMBER OF CHARACTERS RECEIVED 
(1) 005612 001356 1$ F WE DON'T HAVE 7, GO GET SOME MORE 
(1) 005614 012604 (SP)+,R4 “IF WE HAVE 7, RESTORE R4 
(1) 005616 012603 MO (SP)+.R3 “RESTOR 
(1) 005620 010346 _INSTE: R3,-(SP) *SAVE R3 ON THE STACK 
(1) 005622 010446 Ré,-(SP) “SAVE R4 ON THE STACK 
(1) 005624 104402 001356 , “PRINT A QUESTION MARK... WHAT'S GOING ON? 
(1) 005630 000741 “INST 60 PRINT THE MESSAGE AGAIN 
(1) 005632 012604 INSTR2: (SP)+,R4 "RESTORE R4 
(1) 005634 012603 MOV (SP)+,R3 “RESTORE R3 
1) 005636 000002 RTI “RETURN TO THE MAIN PROCEDURE 
(1) ;CONVERT ASCII STRING TO OCTAL 
(1) : 
(1) 005640 010546 .PARAM: MOV R5,-(SP) :SAVE R 
(1) 005642 010446 MOV R4.=(SP) *SAVE R 
(1) 005644 O1 000004 MOV 4 (SP) .R> *GET TH 
(1) 005650 12 37 006030 MOV (R5)+,LOLIM “SET TH 
(1) 005654 012537 006032 MOV (R5)+,HILIM “SET TH 
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(1) 005660 012537 0060 (RS)+,DEVADR § ;SAVE_THE ADDRESS WHERE THE RESULT WILL BE STORED 
(1) 3664 112537 0 (R5)+,LOBITS | :GET THE MASK ITs 

(1) 005670 112537 0060 (R5)+.ADRCNT  :GET THE COUNT TOR D 

(1) 005674 01 566 000004 R5,4(SP) “POINT TO WHERE MAIN LINE PROGRAM WILL Ri 5.ME 
(1) 005 300 5° HINITIALIZE THE ASCII TO OCTAL RESULT WORD 

(1) 005702 O12 04 010446 #INBUF .R4 “POINT TO THE I 

(1) 005706 122714 00001 #15, (RS) *I1S THIS CHARACTER A CARRIAGE RETURN? 

(1) 00571 001420 PARERR *IF $0, PRINT SA 

(1) 005714 ets 000060 (R4) ,#60 *I1S THIS CHARACTER 

(1) 005720 2415 PARERR 7IF $0, 60 

(1) 005722 121427 000067 (R4) #67 1S THIS CHARACTER ABO 

(1) 009726 003012 PARER *IF SO, GO PRINT THE MESSAGE AGAIN 

(1) 005730 142714 000960 #60, (R4) “ISOLATE THE NUMBER THE CHARACTER REPRESENTS 

(1) 005734 152405 (R4S+,R5 i CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 
(1) 005 122714 000015 #15, (R4) *1S THE NEXT CHARACTER A CARRIAGE RETURN? 

(1) 005742 001406 LIMITS “IF SO, GO SEE IF NUMBER IS WITHIN LIMITS 

(1) 005744 00630 RS “CLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 
(1) 005746 006305 RS “CLEAR POSITION 1, MOVE STRING TO LEFT AGAIN. 

(1) 005750 006305 R5 “MOVE THE STRING ONE MORE TIME TO MAKE ROOM F 

(1) “NEXT THREE BITS 

(1) 005752 000760 BR 1$ *GO GET THE NEXT CHARACTER 

(1) 005754 104404 PARERR: INSTER “THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
(1) 005756 000750 BR PARAM1 “TRY GETTING THE PARAMETERS AGAIN 

C1) ;TEST TO SEE IF NUMBER IS WITHIN LIMITS 

(1) 

(1) 005760 020537 006032 LIMITS: CMP RS.HILIM sDOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
(1) 005764 101373 BHI PARERR “IF YES, GO PRINT THE MESSAGE AGAIN 

(1) 005766 020537 006030 CMP RS,LOLIM i1S THE RESULT LOWER THAN ALLOWED? 

(1) 005772 103770 BLO PARERR “IF YES, GO PRINT THE MESSAGE AGAIN 

(1) 005774 133705 006036 BITB LOBITS,RS “ARE ANY INCORRECT BITS SET IN THE RESULT? 

1) 000000 001365 BNE PARERR *IF SO, GO PRINT THE MESSAGE AGAIN 

: sSTORE NUMBER AT SPECIFIED ADDRESS 

(1) 006002 013704 006034 MOV DEVADR,R4 sPOINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
(1) 006006 010524 1$: MOV R5, (R4S+ “STORE THE RESULT 

(1) 006010 062705 00000 ADD #2.R5 “CALCULATE THE NEXT DATUM 

(1) 006014 105337 00603 DECB ADRCNT “REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 
(1) 006020 001372 BNE 1$ *IF NOT, GO STORE THE NEXT DATUM 

(1) 006022 012604 MOV (SP)+,R4 RESTORE R4 

(1) 006024 012605 MOV (SP)+.R5 *RESTORE RS 

(1) 006026 000002 RTI “RETURN TO THE MAIN PROGRAM 

(1) 006030 000000 LOLIM: 0 sLOWEST ACCEPTABLE VALUE 

(1) 006032 900000 HILIM: 0 “HIGHEST ACCEPTABL 

(1) 006034 DEVADR: 0 “LOCATION WHERE RESULT WILL BE STORED 

(1) 006036 000 LOBITS: .BYTE 0 ‘INCORRECT BITS 

(1) 006037 000 ADRCNT: .BYTE “COUNT OF ITEMS TO BE STORED 

(1) ;SAVE PC OF TEST THAT FAILED AND RO-R5 

(1) F 

(1) 006040 016637 000004 001404 .SAVOS: MOV 4(SP) ,SAVPC sSAVE R7 (PC) 
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a3 sSAVE RO-RS5 
(1) 006046 010537 001340 Sv0S: MOV RS, $REGS sSAVE RS 
(1) 52 010437 001 MOV R4,SREGS “SAVE R4 
(1) 10337 001 MOV R3,$REG3 > SAVE 
(1) 19237 001332 MOV R2,$REG2 “SAVE R2 
(1) 10137 001330 MOV R1,$REG1 “SAVE R1 
(1) 0060 10037 001326 MOV RO, $REGO “SAVE RO 
(1) 006076 000002 RTI “LEAVE. 
C1) RESTORE RO-R5 
(1) 006100 013700 001326 .RESOS: MOV SREGO,RO sRESTORE RO 
(1) 006104 013701 001330 MOV EG1,R1 “RESTORE R1 
(1) 110 013702 001332 MOV SREGE.Re “RESTORE R2 
(1) 006114 013703 001334 MOV EG3,R “RESTORE R3 
(1) 006120 013704 001336 MOV SREGS RS “RESTORE R4 
(1) 006124 013705 001340 MOV SREGS.RS “RESTORE R5 
(1) 006130 2 RTI “LEAVE 
(1) sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
(1) 5 
(1) 006132 104402 001357 .CONVR: TYPE  ,$CRLF sPRINT A CARRIAGE RETURN 
(1) 006136 010046 "CNVRT: MOV RO,-(SP) “SAVE RO 
(1) 006140 (010146 MOV R1,-(SP) ; R 
(1) 006142 010346 MOV R3,-(SP) “SAVE R3 
(1) 006144 010446 MOV R4,-(SP) “SAVE R4 
(1) 006146 010546 MOV R5.-(SP) “SAVE RS 
(1) 006150 017601 000012 MOV @12(SP) ,R1 “PLACE THE ADDRESS OF THE ARGUMENTS IN R1 
(1) 006154 062766 000002 000012 ADD #2,12(SP) *POINT MAIN PR WILL RESUME 
(1) 006162 012137 006306 MOV (Ri)+,WRDCNT § :GET R OF WORDS TO BE 
(1) 006166 112105 1$: (R1)+_R5 “GET THE NUMBER OF CHARACTERS TO BE PRINTED 
(1) 006170 112100 *GET THE NUMBER OF SPACES 
(1) 006172 013104 “COPY THE WORD TO BE CONV 
(1) 006174 110537 006310 “COPY THE CHARAC 
(1) 006200 010403 3$: “COPY THE ARGUMENT WORD AGAIN 
(1) 006202 042703 177770 *]SOLATE THREE BITS TO BE TREATED AS A CHARACTER 
(1) 006206 062703 000060 “MAKE AN ASCII CHARACTER OUT OF THEM 
(1) 006212 110346 * SAVE THAT CHARACTER 
(1) 006214 006004 *MOVE THE NEXT THREE BITS INTO PLACE 
(1) 006216 006204 ;MOVE T HEM N 
(1) 00622 00620 AND FINALLY A THIRD TIME 
(1) 005305 Pin CHARACTER COUNT.ARE ALL CHARACTERS 
(1) 006224 001365 BNE Lt} F NO, GO BUILD THE NEXT ONE. 
(1) 006226 012703 010510 MOV ¥MDATA,R3 NOW POINT TO WHERE NUMBER WILL BE {PRINTED FROM 
(1) 006232 112623 4$: MOVB  (SP)+,(R3)+ ‘STORE Ne CHARACTER , STARTING WITH THE MOST 
(1) 006234 105337 006310 DECB  CHRCNT ;REDU CE COUNT. ARE ALL CHARACTERS TRANSFERRED? 
(1) 006240 001374 BNE “IF G FER ANOTHER 
(7) 006242 105700 TSTB=—s_- RO SARE ANY SPACES TO BE PRINTED? 
(1) 006244 001404 BEQ 6$ <IF NO. DON'T Y 
(1) 006246 112723 000040 5$: MOVB  #040,(R3)+ “ADD A SPACE TO THE OUTPUT BUFFER 
(1) 006252 105300 DECB =e RO ; REDUCE THE COUNT. SHOULD alle PRINT MORE? 
(1) 006254 0013.4 BNE 5g “IF YES, GO ADD ANOTHER SPACE 
(1) 006256 105013 6$: CLRB =. (R23) “TERMINATE THE OUIPUT BUFFER WITH A ZERO 
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(1) 906260 1044 e 010510 TYPE §_,MDATA ;PRINT THE. STRING WE JUST BUILT 
(1) 64 95 006306 DEC WRDCNT “REDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 
(1) 9062 g 1 BNE 1$ °IF YES t i CONVERT THEM 
(1) 006272 01260 MOV (SP)+,R5 *REST 
(1) 74 4 604 MOV (SP) +,R4 RESTOR ER 
(1) 76 012603 MOV (SP)+,R3 *RESTORE RS 
(1) 006 012601 MOV (SP)+,R1 “RESTORE R1 
(1) 006302 012600 (SP)+,RO “RESTORE RO 
(1) 006504 000002 RTI “RETURN TO THE MAIN PROGRAM 
(1) 306 000000 WRDCNT: 0 
(1) 006310 000 CHRCNT: .BYTE sNUMBER OF CHARACTERS TO PRINT 
(1) 006511 000 SPACNT: .BYTE 0 “NUMBER OF SPACES TO PRINT 
M 006312 000000 BINWRD: 0 
(1) 
(1) s TRAP DISPATCH SERVICE 
(1) ; ARGUMEN NT OF TRAP IS EXTRACTED 
(1) AND USED AS OFFSET TO OBTAIN POINTER 
(1) *TO SELECTED SUBROUTINE 
(1) 006314 010046 .TRPSR: MOV RO,-(SP) SAVE RO. USE RO. TO FIND TRAP ROUTINE 
(1) 006316 016600 000002 MOV 2(SP) .RO ;GET TRAP ADDRESS 
(1) 006322 005740 TST =(RO TRAP 
(1) 006324 111000 MOVB _ (RO) ,RO 3GET RIGHT BYTE OF TRAP(TRAP OFFSET) 
(1) 006326 006300 ASL RO “POSITION OFFSET FOR TABLE INDEXING 
(1) 006330 016000 001742 MOV . TRPTAB(RO) ,RO ;PLACE INDEXED ADDRESS OF TABLE IN RO 
1) 006334 000200 RTS RO * TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 
(1) sDEVICE CLEAR ROUTINE 
(1) “ISSUE A DEVICE CLEAR 
(1) 006336 .DEVICE.CLR: 
(1) 006336 052777 000020 173444 BIS ADCLR.@DZVCSR  ;:SET DCLR 
(1) 006344 032777 000020 173436 1S: BIT #DCLR,aDZVCSR :DID IT CLEAR? 
(1) 006352 001374 BNE 1$ 
(1) 006354 000002 RTI SEXIT ROUTINE 
(1) ;ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 
(1) 006356 104413 _DCLASM:DEVICE.CLR “ISSUE A DEVICE CLEAR 
(1) 006360 153777 001424 173422 BISB  MNTFLG,a@DZVCSR 3LOAD THE MAINTENANCE BIT IF IT IS I MODE 
1) 006366 000002 BT] “RETURN TO CALLING ROUTINE 
(1) 006370 DELAY: 
(1) 006370 010046 MOV RO,- :SAVE R 
(1) 096372 013700 006406 MOV BL YCNT. PRO *SET COUNT 
(1) 006376 005300 1$: DEC RO ;DELAY 
(1) 006400 001376 BNE 1$ 
(1) 006402 012600 MOV (SP)+,RO “RESTORE RO 
(1) 006404 000002 RTI *LEAVE ROUTINE 
(1) 006406 000001 DLYCNT: .WORD 1 *PATCHABLE LOC FOR MORE TIME 
(1) sADVANCE TO NEXT TEST HANDLER 
(1) ‘ 
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(1) 006410 13716 001362 .ADVANCE:MOV —s NEXT, (SP) ;CRUNCH STACK WITH ADDRESS OF SCOPE CALL 
(1) 14 005037 CLR —- LOCK RESET TIGHT LOOP ADDRESS 
(1) 006420 :CHECK TO SEE IF OLD TEST GETS REPEATED 
(1) ROUTINE TO SHIFT LINE POINTER 
() SAND SWITCH TESTS IF NECESSARY 
(1) 006422 106302 \SHIFT: ASLB-R2 ;POINT TO THE NEXT LINE 
(1) 006424 032702 000020 BIT #BIT4,R2 SHAVE WE PASSED ALL LINE POINTERS? 

(1) 006430 001402 BEQ~—StsédTSS IF NOT, RETURN TO THE TEST 

(1) 006432 022626 POP2SP {REMOVE THE TRAP CALL FROM THE STACK 
(1) 006434 104400 ADVANCE :G0 TO THE NEXT TE 

(1) 006436 000002 1$: RTI RETURN TO THE PRESENT TEST 
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(1) sLINE PARAMETER REGISTER SETUP ROUTINE 

(1) 006449 010146 .LPRSET :MOV R1,-(SP) ;SAVE CONTENTS OF R1 

(1) 1 246 MOV R2. (SP) : SAV. ONTENTS OF R2 

(1) Soeces 01370 001370 MOV p bE FAULT PARAM. INTO R1 
(1) 006450 1270 1 MOV WR. - INIT. FoR Line 

(1) 006454 010177 173340 1$: MOV R1,a@DZVLPR SARA. REGISTER 

(1) 006460 005201 INC R1 “SET R1 FOR NEXT LINE 

(1) 10630 ASLB ss R22 “SET R2 FOR NEXT LINE 

(1) 006464 032702 000020 BIT WBIT4,R2 *ALL LINES DONE? 

(1) 006470 001771 BEQ 1$ *IF NO LOAD NEXT LINE 

(1) 006472 012602 MOV (SP)+,R2 sRELOAD R2 

(1) 006474 012601 MOV (SP)+_R1 “RELOAD R1 

(1) 006476 2 RTI *RETURN 

1) sROUTINE TO ZERO DATA BUFFER 

1) 006500 010046 BUF SET :MOV RO,-(SP) sSAVE CONTENTS OF RO 

(1) 005502 012700 001426 MOV #TD0,RO *SET RO TO TOP OF BUFFER 
(1) 006506 005020 1$: CLR (RO)+ “CLEAR BUFFER LOCATION 

(1) 006510 022700 001446 CMP #STOP,RO IS BUFFER ALL CLEARED 

(1) 006514 001374 BNE 1$ “IF NOT CLEAR NEXT LOCATION 
(1) 006516 012600 MOV (SP)+,RO “RELOAD RO 

(1) 006520 2 RTI * RETURN 

1) sERROR HANDLER 

(1) ‘ 

(1) 006522 737 007150 SERROR: JSR PC, SERV.G IND OUT IF <*G> WAS HIT 
(1) 006526 032777 010000 BIT #SW12,aSWR “BELL ON ERR 

(1) 006534 0014 BEQ x “BR IF NO B ? 

(1) 006536 105777 172552 TSTB asTPs sTTY READY. 

(1) 006542 1 BPL “DON'T WAIT IF TTY NOT READY. 
(1) 006544 112777 000207 MOVB 9207 asTPB *PUSH A BELL AT THE TTY. 
(1) 006552 032777 020000 XBX: BIT #SW13,aSWR ;DELETE ERROR PRINT OUT? 
(1) 006560 001113 BNE HALTS IF NO PRINT OUT WANTED. 
(1) 006562 021637 001262 CMP (SP) , SERRPC ;WAS THIS ERROR FOUND LAST TIME? 
(1) 006566 001404 BEQ 

(1) 006570 011637 001262 MOV (SP) , SERRPC “RECORD BEING HERE 

(1) 006574 105037 001247 CL SERFLG “PREPARE HEAD 

(1) 006600 104407 1$: SAV0S “SAVE ALL PROC REGISTERS 
(1) 006602 011605 MOV (SP) RS “GET THE PC OF ERROR 

(1) 006604 162705 000002 SUB #2.,R5 *GET ADDRESS OF TRAP CALL 
(1) 006610 011504 MOV (R5) RG *GET ERROR INSTRUCTION 

(1) 006612 110437 001260 MOVB  R4,$ITEMB “COPY TEST NUMBER FOR APT HANDLING 
(1) 006616 006304 ASL R4- “MULT BY TWO 

(1) 006620 061504 ADD (R5) RG “DOUBLE IT 

(1) 006622 006306 ASL “MULT AGAIN 

(1) 006624 042704 177001 BIC #177001 R4 “CLEAR JUNK 

(1) 0066 704 016122 ADD #. R4 “GET POINTER 

(1) 006634 012437 006760 MOV (RG) + ERRMSG *GET ERROR MESSAG 

(1) 006640 012437 772 MOV (R4)+,DATAHD § :GET DATA HEADRER 

(1) 006644 011437 007004 MOV (R4) ,DATABP “GET DATA T 

(1) 006650 105737 001247 TSTB =. SERFLG “TYPE HEADER 

(1) 006654 001403 BEQ TYPMSG : Y 

(1) 006656 005737 007004 TST DATABP “DOES DATA TABLE EXIST? 
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(1) 006602 001044 BNE TYPDAT 
(1) 006664 164402 001357 TYPMSG: TYPE  ,$CRLF 
(1) 1 40 001357 TYPE ,$CRLF 
(1) 006674 0057 1 TST LOCK 
(1) 006700 00140 BEQ 1$ 
(1) 006702 104402 010063 TYPE  ,MASTEK 
(1) 006706 10440 100 1 1$: TYPE ,MTSTN 
(1) 006712 19441 1 7 CNVRT  ,XTSTN 
(1) 006716 104402 01014 TYPE § ,MERRPC 
(1) 006722 104412 007134 CNVRT ,ERTABO 
(1) 006726 10440 010015 TYPE ,MCSRX 
(1) 006732 104412 004354 CNVRT  ,XCSR 
(1) 006736 10440 001357 TYP °$CRLF :GIVE A CR/LF 
(i) 006742 112737 177777 001247 MOVB  #-1,$ERFLG “NO MORE HEADER UNLESS NO DATA TABLE. 
(1) 006750 005737 006760 TST ERRMSG 71S THERE AN ERROR MESSAGE? 
(i) 006754 001402 BEQ WIBS.FM *BR IF NO. 
(1) 006756 104402 TYPE * TYPE 
(1) 006760 000000 ERRMSG: 0 * ERROR MESSAGE 
(1) 00676 WTBS.FM: : 
(1) 006762 005737 006772 TST DATAHD “DATA HEADER? 
(1) 006766 001402 BEQ TYPDAT “BR IF NO 
(4) 006770 104402 TYPE ; 
(1) 006772 000000 DATAHD: 0 * DATA HEADER 
(1) 006774 005737 007004 TYPDAT: TST DATABP “DATA TABLE? 
(1) 007000 001402 BEQ RESREG “BR IF NO. 
(1) 007002 104411 CONVRT ; 
(1) 007004 000000 DATABP: 0 : PATA TABLE 
(1) 007006 104410 RESREG: RESOS “RESTORE PROC REGISTERS 
(1) 007010 122737 000001 001140 HALTS: CMPB $ #APTENV,SENV ;1S APT RUINING? 
(1) 007016 001007 BNE 15$ *SKIP APT CALL IF NOT 
(1) 007020 113737 001260 007032 MOVB  $ITEMB,5$ “COPY ERROR NUMBER 
(1) 007026 004737 005264 JSR PC, SATY4 “CALL APT SERVICE 
(1) 007032 5$: .WORD 0 *ERROR NUMBER STUCK HERE 
(1) 007034 000777 10$: 10$ “LOCK UP HER 
(1) 007036 022737 004340 000042 15$: § CMP WSENDAD,a#42  :CHECK TO SEE IF IN ACT-11 MODE 
(1) 007044 001403 BEQ 20$ *IF SO, HANDLE ACCORDINGLY 
(1) 007046 005777 172232 TST aSwWR :HALT ON ERROR? 
(1) 007052 100004 BPL EXITER *BR IF NO HALT ON ZRROR 
(1) 007054 016677 000002 172224 20$: MOV (SP),@DISPLAY :SHOW ERROR PC IN DATA DISPLAY 
(1) 007062 000000 HALT *HALT 
(1) 007064 005 001256 EXITER: INC SERTTL “UPDATE ERROR COUNT 
(1) 007070 004737 007150 JSR PC, SERV.G “FIND OUT IF “G WAS TYPED 
(1) 007074 032777 (00460 172202 BIT #SWC8, aSWR “GOTO TOP OF TEST? 
(1) 007102 001007 BNE “BR IF YES 
(1) 007104 032777 002000 172172 BIT #SW10,aSWR “GOTO NEXT TEST? 
(1) 007112 001407 BEQ ® ; 
(1) 007114 013737 001 001252 MOV NEXT, SLPADR “SET FOR NEXT TEST 
(1) 007122 012706 001120 1$: MOV #STACK, SP “RESET SP 
(1) 007126 000177 172120 JMP aSLPADR “GOTO SPECIFIED TEST 
(1) 007132 000002 2$: RTI *RETURN 
(1) 007134 000001 ERTABO: 1 
(1) 0071 006 002 .BYTE 6,2 
(1) 007140 001404 SAVPC 
(1) 007142 000001 XTSTN: 1 
(1) 007144 002 002 .BYTE 2,2 
(1) 007146 001246 $TSTNM 





~~ 
od 
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007150 017746 172136 SERV.G: MOV asTk ,=(SP) sOTHERWISE, GET THE LAST CHARACTER TYPED 
007154 fi6 00 BIC (SP) :STRIF PARITY (EIGHTH) BIT 


(1) 

(1) 007160 1 g CMPB I tsb)s 

(1) 007164 1076 BNE AS *IF NOT, IGNORE INPUT 

(1) 007166 032777 004000 172114 BIT #4000, a$TKS “RX BUSY? 

(1) 007174 001365 BNE SERV.G “BR IF YES 

(1) 0071 : GETSWR= . :iGPA 
(1) 007176 01773 172102 007404 MOV aswR,90$ sSAVE (SWR). 

(1) 007204 104402 0073 1$: TYPE ,89$ ; TYPE HEADER FOR OLD SWITCH REGISTER 
(1) 007210 104412 007376 CNYRT  ,88$ YPE THE NUMBER ITSEL 

(1) 007214 104402 007406 TYPE 91$ SAFTER HAVING CONVERTED IT TO ASCII 
(1) 007220 105037 00741¢ CLRB 40s-«92S “CLEAR SWR CHANG 

(1) 007224 005077 172054 CLR aswR “CLEAR THE SOFTWARE SWITCH REGISTER 
(1) 007230 105777 172054 3$: TSTB = aSTKS “WAIT FOR DONE. 

(1) 007234 100375 BPL it 3 : CONTINUE WAITING FOR IT 

(1) 007236 017746 172050 MCV a$TKB,-(SP) *PUT THE CHARACTER ON THE STACK 

(1) 007242 042716 000200 BIC #BIT (SP) “STRIP PARITY BIT 

(1) 007226 122726 000015 CMPBs«a#'15,, (SP) i1S IT THE CARRIAGE RETURN CHAR? 
(1) 007252 001433 BEQ F SO, GO PRINT CRLF 

(1) 007254 105777 172034 2$: TSTB  =—_ aSTPS <1S THE OUTPUT BUFFER AVAILABLE 

(1) 007260 100375 BPL 2$ “IF NOT, WAIT IT TO BE READY 

(1) 007262 105237 007412 INCB s«O92$ ‘INDICATE THAT THE SWR WAS CHANGED 
(1) 007266 014677 172024 MOV -(SP) ,a$TPB “PLACE THE CHARACTER THERE(ECHO BACK) 
(1) 007272 000241 CLC *GET READY TO ROTATE 

(1) 007274 006177 172004 ROL aswR “MOVE THE EXISTING BITS OVER 

(1) 006177 172000 ROL aswR *TO MAKE ROOM FOR NCOMING 

(1) 006177 171774 ROL aswR “THREE BITS FROM THIS CHARACTER 

(1) 007310 103735 BCS 1$ “ER 

(1) 007312 022627 000060 CMP (SP) +, #60 *IS IT LOWER THAN 0? 

(1) 007316 002732 BLT 1$ *IF SO, GO ASK AGAIN 

(1) 007320 026627 177776 000067 CMP -2(SP) ,#67 *IS IT HIGHER THAN 7? 

(1) 007326 003326 BGT “IF $0, GO ASK AGAI 

(1) 007330 042746 177770 BIC #°C<7>,-(SP) | : ISOLATE INFORMATION BITS 

(1) 007334 052677 171744 BIS (SP) +, aSWR *ADD THEM TO THE SWITCH REGISTER 
(1) 007340 000733 BR 3$ *GO CHECK FOR THE NEXT CHARACTER 
(1) 007342 105737 007412 4$: TSB 0 s«#92$ “HAS THE SWR BEEN CHANGED? 

(1) 007346 001003 BNE 5$ “IF YES GO TYPE CRLF 

(1) 007350 013777 007404 171726 MOV 90$.aSwR “IF NOT RESTORE SWR 

(1) 007356 104402 001357 S$: TYPE  ,$CRLF “TYPE A CARRIAGE RETURN AND LINE FEED 
(1) 007362 000207 6S: RTS PC “RETURN TO CALLING PROCEDURE 

(1) 007364 020200 051450 051127 898: .ASCIZ <200>? (SWR)=/? 

(1) 007376 000001 88$: 1 

(1) 007400 006 000 .BYTE 6,0 

(1) 007402 007404 90$ 

(1) 007404 000000 90$: .WORD 0 

(1) 007406 036457 000057 91$:  .ASCIZ ?/=/? 

(1) 007412 000 92$:  .BYTE 0 

(1) 007414 EVEN 

(2) "SBITL POWER DOWN AND UP ROUTINES 

ct REA AAEAEAAEAAAEKEAKAERARERAEAAAAEARAEEEAARAAARAAERAEREAEEKRERAEREEEEEEEE 
(2) “POWER DOWN ROUTINE 

(2) 007414 012737 007560 000024 $PURDN: MOV #SILLUP,@#PWRVEC :;:SET FOR FAST UP 

(2) 007422 012737 000340 000026 MOV #340, a#PWRVEC+2 : :PRIO: 
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“POWER UP ROUTINE 
$PURUP: 


1$: 
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BR 
MPFAIL: .ASCIZ 
MEPASS: .ASCIZ 
MR: ASCIZ 
RR2: .ASCIZ 
MERRS: .ASCIZ 
OCK: .ASCIZ 
MCSRX: .ASCIZ 
MVECX: .ASCIZ 
MPASSX: .ASCIZ 
RRX: .ASCIZ 
MTSTN: .ASCIZ 
MASTEK: .ASCIZ 
EW: ASCIZ 
MERRPC: .ASCIZ 
XHEAD: .ASCIZ 
MBADLN: .ASCIZ 
EVEN 
XSTATQ: 2 
BYTE 
STMP1 


RO,-(SP) : PUSH RO ON STACK 
R1,-(SP) ; PUSH ri ON STACK 
R2,~(SP) :ZPUSH ON STACK 
R5,~(SP) :PUSH ON STACK 
R4,-(SP) i :PUSH R4 ON STACK 
R5,~(SP) 33PUSH R5 ON STACK 
@aSWR,-(SP) :2PUs i @SWR ON STACK 
SP, $SAVR6 


“SAVE SP 
#SPWRUP ,a#PWRVEC ::SET UP VECTOR 
72 3: HANG UP 


sane SF a, sgSeT ‘. FAST DOWN 


SSAVR6, SF T 

SSAVR6 ::WAIT LOOP FOR THE TTY 
SSAVR6 SIWAIT FOR THE INC 

1$ ee F WORD 

(SP) +, @SWR :;POP STACK INTO @SWR 
(SP)+,R5 33 STACK INTO R5 
(SP)+,R4 33POP STACK INTO R4 
(SP)+,R3 ee STACK INTO R3 
(SP)+,R2 ee STACK INTO R2 
(SP)+,R1 fetes bay INTO R1 
(SP)+, CK IN 


PUP STA TO RO 
#SPWRDN , afPl VEC” zgSET UP THE POWER DOWN VECTOR 

#340, OAPURVECS? :3P 0:7 
rE PORT T THE POWER FAILURE 


MPFAIL OWER day reeeaas POINTER 
(PC) +, (SP) RESTART A RESTAR 
RESTART : sRESTART ADDRESS 
+3 THE POWER UP SEQUENCE WAS STARTED 
72 es BEFORE TH oo DOWN WAS COMPLETE 


THE SP HE 
<200>/PWR FAILED. RESTART AT LAST TEST / 
<200/RUN Any open -C / 


NI 
<200>/PROGRAM INDICATES Y i DEVICES PRESENT./ 


Se Cees DATA 
hae ON SELECTED TEST/ 


Atel NO: / 

yA A BIT MAP OF DZV11°S DESIRED ACTIVE: / 
<200>/MAP OF DZV11 STATUS/<200> 

<200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 


6,3 


SEQ 0055 


: 2 
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CVDZAC.P11 “AUG-81 10:55 OWER DOWN AND UP ROUTINES SEQ 0056 
2) oz 002 BYTE 6,2 
(2) 10250 001346 — 
;THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 
(2) *E=EXTERNAL LOOP BACK 
(2) *J=INTERNAL LOOP BACK 
(2) *S=STAGGERED LOOP SACK 
(2) 010252 017605 000000 .SETFLG:MOV a(SP),R5 :PICK UP ADDTESS OF TAG 
(2) 010256 040737 000040 010446 BIC #40. INBUF “STRIP LOWER CASE 
(2) 010264 122737 000105 010446 CMPBOté#’E, INF "IS IT EXTERNAL LOOP BACK ? 
(2) 010272 001005 BNE :NO 
(2) 010274 013715 010364 MOV 1$, (R5) “YES STORE INF 
(2) 010300 105037 001424 CLRB = MNTFLG “SET MAINT BIT o 
(2) 010304 000402 BR 7$ *GET OUT 
(2) 010306 122737 000111 010446 4$: CMPB Ss # "J. INBUF "IS IT INTERNAL LOOP BACK ? 
(2) 010314 001006 BNE NO 
(2) 010316 013715 010366 MOV 2$, (R5) “YES STORE INFO 
(2) 010322 112737 000010 001424 MOVB &#MAINT.MNTFLG ;:SET UP THE MAINTENANCE FLAG LOADER 
(2) 010330 000410 BR *GET OUT 
(2) 010332, 122737 000123 010446 5$: CMPB OS s# "SS, INBUF “IS IT STAGGERED LOOP BACK ? 
(2) 010340’ 001007 BNE “WHAT ? 
(2) 010342 013715 010370 MOV 3$, (R5) “YES STORE INFO 
(2) 010346 105037 001424 CLRB  -MNTFLG “ZERO BITS 
(2) 010352 062716 002 7$: ADD #2, (SP) “POP AR 
(2) 010356 000002 RTI 
(2) 010360 104404 6$: INSTER :RETRY 
(2) 010362 000733 BR .SETFLG “DITTO 
(2) 010364 000200 1$: -WORD 200 “EXTERNAL = 
(2) 010366 000000 2$: “WORD O ‘INTERNAL = 
(2) 010370 100000 3$: "wORD 100000 “STAGGERED = S$ 
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CVDZAC.P11 DOWN AND UP ROUTINES SEQ 0057 
(2) COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
(2) :BUFFER TO THE CHARACTERS "E' AND 'C 
(2) z1F THE CHARACTE €'’ CLEAR THE FLAG 
(2) ]F THE CHARACTER 1S "C"* SET THE FLAG 
(2) 010372 017605 000000 .PAWCH: MOV a(sP) 25 
(2) 010576 142737 000040 010446 BICB #40, INBUF :SET FOR LOWER CASE INPUT 
(2) 010404 122737 000105 070446 CMPB WE, INBUF $ IT 
(2) 010412 001002 BNE _‘1$ 
(2) 010614 10501 CLRB = (RS) 000 
(2) 010416 000406 BR 2$ 
(2) 010420 122757 000103 010446 18: (NPB C INBUF 318 17 "C'" ? 
(2) 010426 001005 BNE 38 
(2) 010430 Nieris 177777 MOVB = #1, (R5) 33177 
(2) 010434 062716 000002 2$: ADD #2, (SP) 
(2) 010440 000002 RTI 
(2) 010442 104404 3$: _—INSTER ;RETRY 
(2) 010664 000752 BR .PAWCH 
(2) ;BUFFERS FOR INPUT-OUTPUT 
(2) 010446 000000 INBUF: 0 
(2) 010510 .=.+40 
(2) ; TEMP: 0 ; TEMP_AREA UNUSED. ::GPA 
(2) > =. +40 ; DELETED TO CONSERVE SPACE :GPA 
(2) 010510 000000 MDATA: 0 
(2) 010552 .=, +40 
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DOWN AND UP ROUTINES 


SEQ 0058 


$ ROUTINE USED TO ‘’CYCLE’* THROUGH UP TO tlh ty DZV11°S 
T THE CONTROL ADDRESS FOR THE DI AGNOSTIC 
; RUNS THE SPECIFIED DZV17°S. THIS ROUTINE *MUST* 
:BE_RUN FIRST _ ENTERING THE DIAGNOSTIC FOR THE 
; SETUP NECESSAR 


CYCLE: IST DZVACTV ARE ANY 02V11'S TO BE TESTED? 
TYPE §,MERR2 *NO D2V11°S SELECTED!! 
HALT *STOP THE HOW. 
BR .-2 DISQUALIFY Cc 
1$: MOV SMXCNT,STIMES :RESTORE THE NUMBER “OF ITERATIONS TO MAKE 
BIT RUN, DZVACTV *IS THIS ONE "‘ACTIVE'' 
BNE 2$ *BR IF GOOD ONE FOUND. 
ROL RUN “UPDATE POINTER 
ADC RUN “CATCH CARRY F 
ADD #12, ACTIVE “UPDATE ADDRESS POINTER. 
CMP #DZV.END,ACTIVE :HAVE WE PASSED THE END OF THE MAP? 
BNE 1$ :IF NO, KEEP GOING; NOT ALL TESTED FOR. 
MOV #DZV.MAP ACTIVE ;RESET “ADDRESS POINT 
BR 1$ “KEEP LOOKING FOR ACTIVE pzv11 
2$: ROL RUN UPDATE POINTER. 
ADC RUN CARR 
MOV ACTIVE.RO “GET ADDRESS POINTER. 
ADD #12, ACTIVE “UPDATE. 
CMP #D2V. END, ACTIVE 
sALL DONE? 
BNE 33 F NO. 
MOV #DZV.MAP,ACTIVE RESTORE POINTER. 
3$: MOV (RO) +, $BASE *LOAD SYSTEM CTRL. REG 


MOV (RO) +,DZVRIV 
MOV (RO)+,LINE 


cL 
3SET UP DZV LINES ACTIVE 
MOV (RO) +,PAR UP PARAMETERIZATION 


MOV (RO) +, MODE “SET UP MAINTENANCE MODE 
CLRB MNTFLG ;RESET MAINT. FLAG IF 
st MODE ; RUNNING TESTS 
MOVB #MAINT.MNTFLG =: INTERNAL MAINT. MODE 
9$: JSR PC DZVLEV *SET UP 
TST a#i2 *ARE WE UNDER MONITOR CONTROL? 
BNE 7$ “IF YES, SKIP THIS SETUP 
BIT #SWO01,aSWR “IF SwOi=1, GET STARTING TEST # 
BEQ 7$ “BR IF NO TEST IS TO BE INPUTTED 
4$: TYPE ,$CRLF 
INSTR ;CALL THE STRING INPUT ROUTINE 
MTSTN INTER TO MESSAGE TO BE PRIN 





TED 
CALL THE br TO ASCII CONVERT ROUTI 
:LOWEST LEGITIMATE VALUE CF EXPECTED RESPONSE 
1000 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
STSTNM :POINTER TO MAP LOCATION TO BE FILLE 

BYTE :MASK OF INVALID BITS FOR THIS PARAMETER 

BYTE 1 ;NUMBER OF PARAMETERS TO STORE 

MOV #TST1,RO 








a 
—) 
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(2) 0110 
(2) 011024 
(2) 011026 
(2) 0110 
(2) 0110 
(2) 011044 
3) 011059 
(2) 011060 
‘$) 011064 
(2) 011066 
(¢} 011070 
(2) 011074 
(2) 011076 
(2) 011102 
(2) 011104 
(2) 011112 
(3) 011112 
(2) 

(2) 

(2) 

(2) 011116 
(2) 011122 
(2) pias 
(2) 011132 
(2) 011136 
(2) 011142 
(2) 011146 
(2) 

(2) 

(2) 

(2) 011152 
(2) 011156 
(2) 011162 
(2) 011164 
(2) 011170 
(2) 011172 
(2) 011176 
(2) 011202 
(2) 011204 
(2) 011210 
(2) 011214 
(2) 011216 
(2) 011222 
(2) 011224 
(2) 0112 
(2) 01123 
(2) 011236 
(2) Ot Sef 
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-40 
AND UP ROUTINES 
5$: CMP #4, (RO) 
BNE 6$ 
a #12737,2 (RO) 
CMP STSTNM,4(RO) 
BNE 6$ 
MOV RO, SLPADR 
ADD #2.$LPADR 
TYPE SCRLF 
6$: TST (RO) + 
CMP RO, ATLAST+10 
BNE 5$ 
TYPE SQUES 
BR t 
7s: MOV #TST1,S$LPADR 
RESTART : UMP @SLPADR 


sTHIS UTILITY SETS UP CSR*S,SETS 
VLEV: MOV DZVRIV,RO 


OZVLEV: MO 
ADD #2, 
MOV RO, DZVRIS 
ADD : 
MOV RO,DZVTIV 
ADD #2,R 
MOV RO,DZVTIS 


; THIS 7 UP POINTERS FOR THE GIVEN DZV11. SBASE IS THE BASE ADDRESS 


sC® THE DEVIC 
V aa THE ADDRESS BEING LOADED 


MO SE ,RO 
tet RO,DZVCSR 
MOV RO,HDZVCSR 
INC RO 

MOV RO ,DZVRBUF 
MOV RO,DZVLPR 
INC R 

MOV RO,HDZVRBUF 
inet RO,HDZVLPR 
MOV RO,DZVTCR 
INC 

MOV RO,HDZVTCR 
INC RO 

MOV RO,DZVMSR 
MOV RO,DZVTDR 
INC RO 

MOV RO,HDZVMSR 
MOV RO,HDZVTDR 
RTS PC 


31S THIS THE TEST ? 


s1F NOT. DON'T PROCESS NUMBER 
“POP OVER PREVIOUS SCOPE 


sPREPARE TEST ADDRESS 


:GO START TESTING. ***WARNING! #*** 
sTHIS JUMP IS USED BY POWER UP ROUTINE! !!! 


UP VECTORS. 


PLACE THE BASE VECTOR ADDRESS IN RO 
ALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 


* STORE 


IT HERE 
sCALCULATE THE TRANSMITTER INTERRUPT VECTOR 


“STORE IT HERE 


CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 


SSTORE IT HERE 


3 XXX 


2 XXX2 
sXXX2 


2 XXX 
3 XXX 


2 XXX4 
sXXX5 


sXXX6 
sXXX6 


sXXX7 
> XXX7 


SEQ 0059 
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CVDZAC.P11 AND UP ROUTINES | SEQ 0060 
(2) “CONVERT DECIMAL ASCII STRING TO OCTAL 
(2) 011256 000002 .PARMD: RTI : DECIMAL PARAMETERS UNUSED. z2GPA 
(2) REM & * DELETED TO CONSERVE SPACE... 22GPA 
(2) :..eAND REMAIN UNDER 4KW SIZE. 72GPA 
(2) (SP) RS 
(2) (R5)+,6$ 
(2) (R5)+,7$ 
(2) (R5)+, 

(2) (R5)+,9$ 
(2) (R5)+,10$ 
(2) RS, (SP) 

(2) 

(2) #INBUF .R4 
(2) #15, (R4) 
(2) 

(2) (R46) ,#°0 
(2) 

(2) Cc (R46) ,#°9 
(2) BGT 

(2) BICB =—s_« #0, (R4) 
(2) CLR 

(2) BISB (R4)+,R2 
(2) ADD R2,R 

(2) CMPB —so#'15., (R4) 
(2) BEQ 4$ 

(2) ASL 5 x2 
(2) MOV R5,R2 = SAVE X2 
(2) ASL KG 
(2) ASL R5 :x8 
(2) ADD R2,R5  :TIMES 10 
(2) BR 

(2) 3$: INSTER 

(2) BR 2$ 

(2) sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
(2) 4$: CMP R5,7$ 

(2) BHI 3$ 

(2) CMP R5,6$ 

(2) BITB 9$.R5 

(2) BNE 3 

(2) sSTORE NUMBER AT SPECIFIED ADDRESS 
(33 MOV 8$,R4 

(2) 5$: MOV R5,(R4)+ 
(2) ADD #2,R5 

(2) DECB«=Ss«é1:08 

(2) BNE 5$ 

(2) RTI 

(2) 6$: 0 

(2) 7$: 0 

(2) 8$: 0 

(2) 3o$: BYTE 0 

(2) 10$ “BYTE 0 


J 5 
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(2) ; END OF .PARMD DELETE RANGE & 3 GPA 
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(2) s*ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 

(2) *e]F BIT? IN THE ENVIRONMENT MODE (SENVM) BYTE IS SET 

*#THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 

(2) 011260 012700 001500 SETAPT: MOV #D2V.MAP,RO sPOINT TO THE DEVICE MAP TABLE 

(2) 011264 013701 001174 MOV S$BASE “BUILD DEVICE ADDRESSES IN R1 

(2) 011270 013702 00117 MOV SVECTIR2 “BUILD DEVICE VECTORS IN R2 

(2) 011274 042702 17700 BIC #*C<770>,R2 “STRIP AWAY OTHER INFORMATION 

(2) 011300 012704 001204 MOV #SDDWO,R4 sPOINT TO THE BEGINNING OF DEVICE PARAMETERS 
(2) 011304 013705 001176 MOV SDEVM,RS “GET THE MAP OF ACTIVE DEVICES 

(2) 011310 105037 001414 CLRB  -DZVNUM “INITIALIZE NO. OF DEVICES IN SYSTEM 
(2) 011314 005037 001410 CLR SAVACTV “CLEAR THE ACTIVE BIT MAP 

(2) 011320 006005 1$: ROR RS “GET A DEVICE SELECTION BIT 

(2) 011322 103407 BCS 3$ “IF IT IS SELECTED, GO SET UP A MAP 
(2) 011324 007422 BEQ S$ “IF NO MORE ARE SELECTED, GET OUT OF SETUP 
(2) 011326 005724 TST (R4)+ “POINT TO NEXT DEVICE DESCRIPTOR 

(2) 011330 062701 000010 23: ADD #10,R1 “SET UP THE NEXT ADDRESS 

(2) 011334 062702 0v0010 ADD #10,R2 “SET UP THE NEXT VECTOR GROUP 

(2) 011340 000767 BR *GO SEE IF MORE DEVICES REMAIN 

(2) 011342 006137 001410 3$: ROL SAVACTV “SET BIT IN ACTIVE DEVICE MAP 

(2) 011346 105237 001414 INCB  DZVNUM - INCREMENT NO. OF ACTIVE DEVICES IN SYSTEM 
(2) 011352 010120 V R1, (RO)+ “LOAD DEVICE ADDRE 

(2) 011354 010220 MOV R2.(RO)+ “LOAD THE VECTOR ADDRESS 

(2) 011356 013720 001200 MOV $CDwW1, (RO)+ *GET THE NUMBER OF LINES IN OPERATION 
(2) 011362 012420 MOV (R4)+, (RO)+ “LOAD DEVICE PARAMETERS 

(2) 011364 013720 001202 MOV $CDW2, (RO)+ “LOAD DEFAULT TEST 

(2) 011370 000757 BR *GO BUILD THE NEXT ADDRESS 

(2) 011372 012710 177777 5$: MOV #=-1, (RO) * TERMINATE THE DEVICE MAP 

(2) 011376 012737 001142 001304 MOV #SSWREG, SWR “SET TO SOFTWARE APT SWITCH REGISTER 
(2) 011404 000207 RTS PC ‘RETURN TO PRINT STATUS TABLE 

(2) 

(2) :*ROUTINE USED TO "AUTO SIZE"* THE DZV11 

(2) **CSR AND VECTOR. 

(2) **NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 

(2) 8 ADDRESS RANGE (160000: 163770) 

(2) : TOR MAY BE ANY WHERE IN THE 

(2) :* FLOATING VECTOR RANGE (300:770) 

(2) ° 

(2) 011406 AUTU. SIZE: 

(2) 011406 000005 RESET s INSURE A BUS INIT. 

(2) 011410 105337 001422 DECB _—INIFLG *SHOW THAT I WAS HERE 

(2) 011414 012702 001500 CSRMAP: MOV #DZV.MAP,R2 “LOAD MAP POINTER. 

(2) 011420 012703 001204 MOV #SDDWO,RS “POINT TO ETABLE DEVICE DESCRIPTOR WORDS 
(2) 011424 005022 1$: CLR (R2)+ *ZERO ENTIRE MAP 

(2) 011406 022702 001740 CMP #D2V.END.R2 *ALL DONE? 

(2) 011432 001374 BNE 1$ “BR IF NO 

(2) 011434 105037 001414 CLRB “SET OCTAL NUMBER OF DZV11°S TO 0 

(2) 011440 012702 001500 MOV 

(2) 011444 01 201 160000 MOV sSET FOR FIRST ADDRESS TO BE TESTED 
(2) 011450 012737 011714 000004 MOV “SET FOR NON-EXISTENT DEVICE TIME OUT 
(2) 011456 052711 $: BIS “TRY TO SET MASTER SCAN ENABLE 

(2) 011462 052761 000017 000004 BIS “TRY TO TRANSMIT ON ANY LINE 

(2) 011470 005000 CLR RO “USE RO AS A COUNTER 
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OWN AND UP ROUTINES SEQ 0063 
(2) 011472 005711 7$: TST (R1) sHAS TRANSMITTER READY COME UP? 
(2) 011474 100403 BMI] 3 “IF $O, GO GET A FINAL CHECK 
(2) 011476 300 DEC RO “REDUCE COUNT. TIME UP? 
(3) 11300 1374 E 
(2) 01150 37 BR 3$ 
(2) 011504 032761 000017 000004 8$: BIT #17,4(R1) 
(2) O11512 1433 BEQ $ 
(2) 11514 032711 000040 BIT ¥B1TS, (R1) 
(2) 011520 001430 BEQ 
(2) 011522 052711 000020 BIS #20, (R1) 
(2) 011526 009240 NOP 
(2) 011530 032711 000040 BIT #40, (R1) :DID SCANNER CLEAR 
(2) 011534 001022 BNE 3$ ‘IF NOT ASSUME IT IS NOT DZV 
(2) 011536 0050671 000004 CLR 4(R1) “GET RID OF TCR BI 
(2) sAT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DZV11 CSR ADDRESS. 
(2) 011542 010122 MOV R1, (R2)+ sSTORE CSR IN CORE TABLE. 
(2) 011544 005722 TST (R2)+ “POP OVER VECTOR STORE AREA 
(2) 011546 12722 000017 MOV #17, (R2)+ “SET THE DEFAULT LINE SELECTION PARAMETER 
(2) O11352 O1e7ie 017470 MOV #17470, (R2) *SET THE DEFAULT PARAMET 
(2) 011556 01222 MOV (R2)+, (R3)+ “COPY PARAMETERS INTO ETABLE DESCRIPTOR 
(2) 011560 005022 CLR (R2)+ *SET THE DEFAULT MODE OF OPERATION 
(2) 011562 O1271¢ 177777 MOV #-1, (R2) * TERMINATE LIST 
(2) 011566 105237 001414 INCB V “UPDATE DEVICE COUNTER 
(2) 011572 122737 0 001414 CMPB =: #20, D7 VNUM sARE MAX. F DEV FOUND? 
(2) 011600 001405 BEQ 100$ “YES DON'T LOOK FOR ANY MORE. 
(3) 011602 062701 000010 3$: ADD #10.R1 “UPDATE CSR POINTER ADDRESS 
(<> 011606 022701 164000 CMP #164000,R1 
(2) 011612 001321 en BNE 2$ :BR IF MORE ADDRESS TO CHECK. 
(2) 011614 105737 001414 TSTB DZ VNUM sWERE ANY DZV11°S FOUND AT ALL? 
(2) 011620 001430 BEQ 5$ “ERROR AUTO SIZER FOUND NO DZV11°S IN THIS SYS. 
(2) 011622 113701 001414 MOVB DZVNUM,R1 
(2) 011626 012737 000001 001410 MOV #1, SAVACTV sCREATE A BIT MAP OF THE ACTIVE 
(2) 011634 005301 4$: DEC R1 “DEVICES IN THE SYSTEM 
(2) 011636 001404 BEQ 98$ 
(2) 011640 000261 SEC 
(2) 011642 006137 001410 ROL SAVACTV 
(2) 011646 000772 BR 
(2) 011650 013737 001500 001174 98$: MOV DZ7CRO,$BASE sPOINT TO THE ADDRESS OF FIRST DEVICE 
(2) 011656 013737 001510 001202 MOV MANTO. $CDW2 “INDICATE TO ETABLE WHAT MODE IS BEING USED 
(2) 011664 012737 000006 000004 99%: MOV #6, af “RESTORE TRAP VECTOR 
(2) 011672 013737 001410 001176 MOV SAVACTV,SDEVM  :SAVE ACTIVE REGISTER 
(2) 011700 000410 BR VECMAP *GO FIND THE VECTOR NOW. 
(2) 011702 104402 007671 5$ TYPE ,MERR2 “NOTIFY OPR THAT NO D2V11°S FOUND. 
(2) 011706 005000 CLR RO “MAKE DATA DISPLAY ZERO 
(2) 011710 000000 HALT “STOP THE SHOW 
(2) 011712 000776 BR .-2 “DISABLE CONT. SW. 
(2) 011714 012716 011602 6S: MOV #3$, (SP) “ENTERED BY NON-EXISTENT TIME-OUT 
(2) 011720 000002 RTI “RETURN TO MAINSTREAM 
(2) 011722 012737 000200 000022 VECMAP: MOV #MASK ,@#22 :SET I0T TRAP PRIORITY 
(2) 011730 012737 012044 000020 MOV #4$,a#20 “SET IOT TRAP VECTOR 
(2) 011736 Or 702 001500 MOV #D2V.MAP,R2 “SET SOFTWARE POINTER 
(2) 011742 012700 000300 MOV #300, “FLOATING VECTORS START HERE. 
(2) 011746 012701 0600302 MOV #302.R1 “PC OF IOT INSTR. 
(2) 011752 010120 1$: MOV R1, (RO)+ “START FILLING VECTOR AREA 


Mm 5 


CVDZA-C MACY11 (1065) 1Q-AUG-81 11:08 PAGE 25-45 
CVDZAC.P11.  10-AUG-81 10:55 POWER DOWN AND UP ROUTINES 
(2) 011754 01 721 000004 MOV #4, (R1)+ sWITH #2; I0T 
(2) 11760 021 (MP CRO) +, (R1)+ “ADD 2 TO RO +R1 
(2) 011762 020127 001000 CMP R1,41000 *HAS-THE VECTOR AREA BEEN EXCEEDED? 
(2) 011766 101771 BLOS -*1$ “BR IF MORE TO FILL 
(2) 011770 013704 001410 MOV SAVACTV,R4 “STORE TEMPORARILY 
(2) 011774 2$: ROR R4 “BRING OUT A BIT 
(2) 011776 1030 BCC 5$ “BR IF ALL DONE 
(2) 012000 1064 000000 MIPS #0 -ZERO CPU PRIO 
(2) 012006 012772 040040 000000 MOV #B1T14+BI1T5,a(R2) *SET TIE AND MAS SCAN 
(3) 12018 011201 MOV R2),R1 *GET CSR 
(2) 012014 112751 000017 000004 MOVB  #17,4(R1) “SET THE TCR BITS FOR ALL LINES 
(2) “ATTEMPT TO FORCE AN INTERRUPT 
(2) 012022 005 INC RO * STALL 
(2) 012024 001376 BNE 72 ; FOR TIME TO INTERRUPT 
(2) 012026 012762 000300 000002 MOV. #300,2(R2) “NO INTERRUPT ASSUME 300 AND FIX DZV11 LATER 
(2) 012036 062702 000012 3$: ADD #12,R2 “POP SOFTWARE POINTER 
(2) 012042 000754 BR “KEEP GOING 
(2) 012044 011662 000002 4$: MOV (SP) ,2(R2) “GET VECTOR ADDRESS 
(2) 012050 162762 000010 000002 SUB #10,2(R2) “POINT BACK TO THE CORRECT VECTOR 
(2) 012056 042762 000007 000002 BIC #7,2(R2) “CLEAR JUNK 
(2) 012564 022626 POP2SP “POP IOT JUNK OFF STACK 
(2) 912066 012716 012036 MOV #3$, (SP) *SET FOR RETURN 
(2) 072072 000002 RTI 
(2) 012074 013737 001502 001170 5S: MOV DZVCO,$VECT1 COPY VECTOR OF FIRST DEVICE INTO ETABLE 
(2) 012102 012737 004404 000020 MOV #.SCOPE,IOTVEC :RESTORE THE SCOPE TRAP 
(2) 012110 000207 RTS pc “ALL DONE WITH ‘AUTO SIZING" 
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z 
ith skankaanaaaanenereeeeaenan TEST ] seaeeeenaaaneananeneranerenens 
(1) ‘THIS TEST PROVES THE BUS REPLY RESPONSE 
(1) **#DURING A READ OR WRITE TO THE FOLLOWING ADDRESS: 
(1) : mY DZVCSR, DZVRBUF, DZVTCR, DZVMSR 
( ) «  RRRRREREREEREREERREREEEEEEEERERAERAERERREREREREEREEERERERERERERE 
(5) 012112 TST1: SCOPE 
(3) 012114 012737 1 1246 MOV #1. $TSTNM :LOAD THE NUMBER OF THIS TEST 
(3) 01 1¢8 4 737 «(1 302 1362 MOV #TS5T2,NEXT *POINT TO THE START OF THE NEXT TEST 
(1) 0121 12737 01227 004 MOV #5$,4 *SET TRAP VECTOR 
(1) 012136 012737 900006 MOV #MASK 6 *SET PRIORITY TO HIGH(MASK INTERRUPTS) 
(1) 012144 012737 o1 152 001 MOV #1$,LOCK “SET RETURN IF SWO9=11 
(1) Oi2i52 Or 700 002010 1$: MOV DZVCSR,RO :SET ADDRESS TO TEST 
(1) 012156 0110017 MOV (RO) RI “READ THE ADDRESS 
(1) 012160 000240 NOP WA 
(1) 012162 005010 - CLR (RO) “WRITE THE ADDRESS 
(1) 012164 000240 NOP “WASTE TIME 
(1) 012166 O12 37 012174 001364 MOV #2$,LOCK “SET RETURN ADDRESS FOR SWO09 
(1) 012174 013700 002014 2$: MOV. DZ VRBUF RO ‘SET ADDRESS TO TEST 
(1) 012200 011001 MOV (RO) ,R1 *READ THE ADDRESS 
(1) 012202 000240 NOP ; 
(1) 012204 005010 CLR (RO) “WRITE THE ADDRESS 
(1) 012206 000240 NOP “WASTE TI 
(1) 012210 012737 012216 001364 MCV #3$,LOCK *SET RETURN ADDRESS FOR SwO09 
(1) 012216 013700 002024 3$: MOV DZVTCR,.RO *SET ADDRESS TO TEST 
(1) 012222 011001 MOV (RO) Ri “READ THE ADDRESS 
(1) 012224 000240 NOP 
(1) 012226 005010 CLR (RO) sWRITE THE ADDRESS 
(1) 012230 000240 NOP 
(1) 012232 O1e75 012240 001364 MOV #4$,LOCK :SET RETURN ADDRESS 
(1) 012240 013700 002030 4$: MOV DZVMSR,RO *SET ADDRESS TO TEST 
(1) 012244 011001 MOV (RO) Ri “READ FROM ADDRESS 
(1) 012246 000240 NOP 
(1) 012250 005010 CLR (RO) sWRITE THE ADDRESS 
(1) 012252 000240 NOP ; 
(1) 012254 012737 000006 000004 MOV #6,4 *SET TRAP CATCHER BACK TO NORMAL 
(1) 012262 005037 000006 CLR : 
(1) 012266 104400 ADVANCE “SCOPE THIS TEST 
(1) 012270 011601 S$: MOV (SP) ,R1 *SAVE PC OF TRAP 
(1) 012272 022626 POP2SP *POP TRAP OFF STACK 
(1) 012274 104001 ERROR **NO BUS REPLY RESPONSE. 
(1) 012276 104401 $COP1 *SWO9=1? 
(1) 012300 000111 JMP (R1) RTI 
3035 okeRkkkkkakkkkaeeekeekaeee TEST 2 sear ee eae eee eae eeeeeeeekaenee 
36 **THIS TEST PROVES THAT BIT ‘DCLR'’ 
37 **CAN BE SET AND THAT IT WILL CLEAR 
3038 -*BY ITSELF 
0 si8 TEST 2 
(5) © REEAKAKAEKAAARAAAEAAREAEAAEAAAAAEAAAAAAEARARAAEAERAREAAAAAAREEAARERERE 
(4) 912302 000004 T2: SCOPE 
(2) 12304 012737 000002 001246 MOV #2. STSTNM :LOAD THE NUMBER OF THIS TEST 
(2) 012312 012737 012346 001362 MOV #TST3,NEXT “POINT TO THE START OF THE NEXT TEST 
3041 0128 013700 002010 MOV DZVCSR,RO “SET POINTER 
2 012324 012710 00020 MOV #DCLR, (RO) : CLR 
3043 012330 00500 CLR *SET EXPECTED TO 0 
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CLR R3 ;DUAL LOOP COUNTER 
2$: MOV (RO) ,R4 :1S DCLR CLEAR? 
BEQ 3$ IF YES , GO TO NEXT TEST 
INCB RS :1F NO,COUNT 1 OF 256 TICKS 
BNE $ HAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN 
35 ERROR :*DCLR FAILED TO CLEAR 





**DZVCSR REGISTER C 
“*THESE BITS CAN BE CLEARED. AND FINALLY, VERIFY 
THAT AFTER BEING SET AGAIN THEY CAN BE 
“CLEARED BY A DEVICE CLEAR". 
zs THE BITS TESTED ARE: MAINT, MSENAB, SILOEN, 
s:e TEST 3 
Nog pompame pia ern mn aren ater TaN 
TSTS: 
sLOAD THE NUMBER OF THIS TEST 
“POINT TO THE START OF THE NEXT TEST 
*GET BASE ADDRESS 
“SET R3 TO TOP OF TABLE 
1$: “SET BIT 
“SETUP FOR TIGHT SCOPE LOOP 
11$: “SET BIT IN DEVICE 
“READ THE BIT FROM DEVICE 
“WAS BIT SET? 
“BR IF YES 
“BIT R/W FAILURE 
2$: *IS SWITCH 9 SET? 
MOV #12$, LOCK “SET FOR NEXT TIGHT SCOPE LOOP 
12$: BIC R5. (RO) *CLEAR THE BIT. 
MOV (RO) .R4 “READ DEVICE 
BEQ 3$ “BR IF BITS WERE CLEARED. 
CLR R5 “CLEAR FOR ERROR PRINTOUT 
ERROR 2 **BIT FAILED TO CLEAR 
MOV (R3) RS *RESTORE THE BIT. 
3$: SCOP1 *SWO9 SET? 
MOV #13$,LOCK “SET UP FOR NEXT TIGHT SCOPE 
13$: MOV R5, (RO) *SET THE BIT AGAIN 
DEVICE.CLR “ISSUE DEVICE CLEAR 
MOV (RO) .R4 “READ THE BIT. 
BEQ 4$ “BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR R5 *SET EXPECTED TO ZERO 
ERROR 2 **BIT NOT CLEARED BY DEVICE CLEAR 
MOV (R3) RS “RESTORE BIT AGAIN 
4$: SCOP1 *5W09 SET? 
ADD #2.R3 “POP R 
TST (R3) °1S THIS THE END OF TABLE? 
BEQ 6$ “IF YES GET OUT 
BR 1$ “OTHERWISE TEST NEXT BIT 
5$: #MAINT “CSR BIT: INTERNAL MAINTENANCE 
#MSENAB “CSR BIT: MASTER SCAN ENABLE 
#SILOEN : 0 


;CSR BIT: SILO ENABLE 
sCSR BIT: RECEIVER INTER. ENABLE 
;CSR BIT: TRANS. INTER. ENABLE 


C 6 
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(1) ozs 900000 #0 sEND OF TABLE 
(1) 012520 001364 6$: CLR LOCK *ZERO LOCK INDICATOR 
3052 [ektheeekeeteteeteeeenene da 6 RRRERAEAAAREREERERERERREREEREEE 
(1) ; *THIS TESTS THAT ALL OF THE TCR BITS 
(1) -*CAN BE: SET, CLEARED, AND CLEARED BY A DEVICE CLEAR. 
(1) “*THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 
() cel “BE SET, CLEARED, AND CLEARED BY A RESET. 
(6) ; © REAAERAAAAAEAAEAEAEAAAEAEEAAEAEEARERARAAEEEEAERAEEARAEKREREREEAEARAERARE 
(5) 012524 ST4: SCOPE 
(3) 012526 012737 000004 001246 MOV #4.$TSTNM sLOAD THE NUMBER OF THIS TEST 
(3) 012534 012737 0127 0 001362 MOV #TSTS NEXT “POINT TO THE START OF THE NEXT TEST 
(1) 012542 013700 00 024 MOV DZVTCR,RO ;SET DEVICE ADDRESS 
(1) 012546 012703 012634 MOV R3 *SET R3 POINTER TO TOP OF TABLE 
(1) 012552 012737 012562 001364 1S: MOV #11$, LOCK “SET LOCK FOR $WO9 SCOPE LOOP 
(1) 012560 011305 MOV )R5 SET EXPECTED RESULTS 
(1) 012562 010510 11$: MOV R5, (RO) “SET THE BIT 
(1) 012564 011004 MOV (RO) RS “READ THE BIT FROM THE DEVICE 
(1) 012566 020504 CMP RS RS :DID THE BIT SET? 
(1) 012570 001401 BEQ 2 YES 
(1) 012572 104002 ERROR #817 FAILED TO SET. 
(1) 012574 104401 2$: SCOP1 
(1) 012576 012737 012604 001364 MOV meio) “SET UP | FOR NEXT TIGHT SCOPE LOOP 
(1) 012604 040510 3$: BIC * CLEAR T 
(1) 912606 011004 MOV a a0) “READ THE REGISTER 
(1) 012610 001403 BEQ “BR IF Y 
(1) 012612 005005 CLR RS SET EXPECTED TC 0 
(1) 012614 104002 ERROR 2 “REPORT BIT NOT CLEAR 
(1) 012616 011305 MOV (R3) ,.R5 “RESTORE R5 
(1) 012620 104401 4$: SCOP1 *SWwO9 SET? 
(1) 012622 062703 000002 ADD #2,R3 *POP POINTER TO NEXT TABLE ENTRY 
(1) 012626 005713 TST (R3) “END OF TABLE? 
(1) 012630 001412 BEQ 6$ “IF YES JUMP OVER TABLE 
(1) 012632 000747 BR 1$ “START TESTING NEXT BIT 
(1) 012634 000001 S$: #TCRO “TCR BIT FOR LINE 0 
(1) 012636 000002 #TCRI1 “TCR BIT FOR LINE 1 
(1) 012640 000004 #TCR2 “TCR BIT FOR LINE : 
(1) 012642 000010 #TCR3 “TCR BIT FOR LINE 
(1) 012644 000400 #DTRO *DTR BIT FOR LINE 0 
(1) 012646 001000 #DTR1 *DTR BIT FOR LINE 1 
(1) 012650 002000 #DTR2 “PTR BIT FOR LINE 2 
(1) 012652 004000 #DTR3 *DTR BIT FOR LINE 3 
(1) 012654 000000 #0 “END OF TABLE 
(1) 012656 005037 001364 6$: CLR LOCK “CLEAR TIGHT SCOPE LOOP INDIC. 
(1) 012662 012710 177777 MOV #-1, (RO “SET ALL BITS IN TCR REGISTER 
(1) 012666 012705 007400 MOV #007400,R5 “SET EXPECTED 
(1) 012672 104413 DEVICE.CLR “SET DCLR BIT IN CSR 
(1) 012674 011004 MOV (RO) .R4 “READ REGISTE 
(1) 012676 020504 CMP R5 RG “TCR BITS CLEARED? 
(1) 012700 001401 BEQ 7$ :1F YE 
(1) 012702 104002 ERROR 2 TCR BITS NOT CLEARED! 
(1) 012704 005005 7$: CLR R5 SET Fat ECTED TO ZERO 
(1) 012706 005227 000000 8$: INC #0 “DELAY *OR ACT 
(1) 012712 001375 BNE aS : 
(1) 012714 012710 177777 MOV #-1, (RO) “SET ALL POSSIBLE BITS 
(1) 012720 000005 RESET *DO BUS INIT 
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(1) 01 f : 011004 MOV (RO) RS :DiD yetatt'c pent 
(1) 0127 001401 BEQ 9$ 
ai 8155 é 104002 98 ERROR 2 ‘REGISTER DID NOT CLEAR! 
3053 re aoe TEST 5 seeeanareeaeneeeeeeeereeeeeene 
(1) **THIS TEST yeni ies | 
(1) +*B] TS "'RDONE , T RDY BIT9. B1T8, 
(1) “®AND SILOAL'’ ARE READ ONLY AND THAT TRDY IS 
$1 ;*ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 
(3) 38 TEST. 5 
(6) , RRR RERRERERRRERREEREREEERERAERERRERREREEREEEREREREREEREREEEE 
(5) 012730 000004 TSTS: SCOPE 
(3) 012732 012737 000005 001246 MOV #5. $3TSTNM sLOAD THE NUMBER OF THIS TEST 
(3) 012740 Ogle 013032 001362 MOV #TST6,NEXT =POINT TO THE START OF THE NEXT TEST 
(1) 012746 01 me 002010 MOV 1 \eenenes = SET ADDRESS TO RO 
(1) 012752 10441 pr ysee. CLR :D0 A DEVICE CLEAR 
(1) 012754 005005 CLR SET EXPECTED TO 0 
a 012756 012710 121600 MOV MROONESTROYSBITS STE THE BETS. 
(1) 012762 011004 MOV (RO) .R4 READ BACK THE BITS 
(1) 012764 001401 BEQ re } BR IF NONE ARE SET. 
(1) 012766 104002 ERROR 2 :*BITS WERE SET. 
(1) 012770 612705 100040 2$: MOV A gp ee RS :SET age Hi. BIT 
(1) 012774 052777 000017 167022 BIS #17,aDZVTCR SET TCR BITS FOR ALL LINES 
(1) 013002 052710 000040 81s #MSENAB, (RO) eset SCAN 
(1) 013006 005002 CLR ne 4}! COUNTER TO ZERO 
(1) 013010 011004 3$: MOV ),R4 READ THE REGISTER 
(1) 013012 042704 001400 BIC #5179 BITS.RG sMASK OUT LINE NO. 
(1) 013016 020504 CMP R5,R4 “BIT SET? 
(1) 013020 001404 BEQ IF Y 
(1) 013022 104414 DELAY sSTALL TIME 
(1) 013024 005202 INC R2 eens COUNTER 
(1) 013026 001370 BNE 3$ :BR IF COUNTER NOT DONE. 
(1) 013030 104002 ERROR 2 sxTRDY NOT SET! 
(1) 013032 4$: 
3054 SRRAARAREERREREREAREREERE TEST 6 8k eee eee Rea aAaKKeeReeee 
3055 **THIS TEST VERIFIES THAT: 
3056 **TIE, en yore t RIE.MSENAB,AND MAINT ARE THE 
3057 * ONLY W Bi TS IN THE DZVCSR AND THAT 
3058 : «gi SETTING DCLR’’ IN THE CSR WILL CLEAR THESE BITS. 
(5) + RRREERRRRERRRERRREREREREREREEERERREEREERREERERRRERREEREEEKEREREE 
(4) 013032 000004 TST6: SCOPE 
(2) 013034 012737 000006 001246 MOV #6,.$TSTNM sLOAD THE NUMBER OF THIS TEST 
(2) 013042 012737 013162 001362 MOV aTST?, NEXT *POINT TO THE START OF THE NEXT TEST 
3061 013050 104413 DEVICE.CLR “SET cus IN CSR 
3062 013052 013700 002010 MOV DZV vce. a sSeT UP FOR ERROR MESSAGE 
3063 013056 012710 1/7757 MOV #W*C<DCLR>, (RO) :T Y TO SET ALL BITS EXCEPT DCLR 
3064 013062 012705 050150 MOV OT LET SILOEN TRIE! MSENAB | MAINT.RS :MAKE EXPECTED 
5 013066 011004 MOV (RO) -R4 s ACTUAL 
013070 020405 CMP R4,R5 ; CMP EXPECTED VS ACTUAL 
3067 013072 (01401 BEQ 1$ : YES 
3068 013074 104002 ERROR 2 :*NO 
3069 013076 105010 1$: CLRB (RO) *CLEAR LOW BYTE OF CSR 
3070 013100 105005 CLRB R5 *CLEAR LOW BYTE OF EXPECTED DATA 
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3071 013102 011 MOV (RO) .R4 sREAD CSR 
ie: 13104 020405 CMP R4,R5 “DOES CSR COMPARE WITH EXPECTED? 
131 1401 BEQ 3$ “BRANCH IF YES 
74 013110 104 ERROR 2 ‘IF NOT PRINT ERROR 
75 01311 O12 10 177757 3$: MOV #*C<DCLR>,(RO) :SET ALL CSR BITS POSSIBLE 
7 013116 105077 166670 CLRB § @HDZVCSR “CLEAR HIGH BYTE OF CSR 
77, 013122 012705 000150 MOV WRIE'MSENAB!MAINT.RS § ;:SET EXPECTED IN RS 
78 01 1¢6 011004 MOV (RO) RG sREAD CSR REGISTER 
3079 013130 020405 CMP R45 “DOES ACTUAL=EXPECTED 
3080 013132 001401 BEQ 4$ iT YES CONTINUE 
1 013134 104008 ERROR 2 <IF NO PRINT ERROR 
3082 01 136 012710 177757 4$: MOV #*C<DCLR>, (RO) 3SET A L POSSIBLE CSR BITS 
3083 013142 005005 CLR RS * SET aS TO EXPECTED RESULTS 
3084 013144 052710 000020 BIS #DCLR, (RO) “DEVICE MASTER RESET 
3085 013150 000240 NOP 
3086 013152 011004 MOV (RO) .R4 s ACTUAL 
2087 013154 020405 CMP R4,R5 “CMP ACTUAL VS EXPECTED 
3088 013156 001401 BEQ es YES 
3089 013160 104002 ERROR : NO 
3090 013162 - 2$: 
3091 SRRARRERAAERERREEEEREREREE TEST 7 RRRRRERAEEEREREEREEAEEEREREEEEE 
(1) “THIS TEST PERFORMS RESET TESTING AND 
(1) **TESTING OF READ ONLY REGISTER DZVRBUF 
(1) rsh TESTING OF WRITE ONLY REGISTER DZVLPR 
sf 
(6) *s 2 RAE AAARAEAAAAAAEAAEAAAAEEAAARAAAEEAREERKEKRAEAAARAEARARAEARARERAEAREREEAEEE 
(5) 013162 000004 TST7: SCOPE 
(3) 013164 012737 000007 001246 MOV #7,.$TSTNM sLOAD THE NUMBER OF THIS TEST 
(3) 013172 012737 013246 001362 MOV #TST10, NEXT “POINT TO THE START OF THE NEXT TEST 
(1) 013200 104413 DEVICE.CLR * CLEAR bzv v11 
(1) 013202 013700 002014 MOV DZVRBUF ,RO SET UP FOR ERROR MESSAGE 
(1) 013206 011005 MOV (RO) RS PRESENT CONTENTS 
(1) 013210 042765 106000 BIC govat 10181111 181710, RS REP EAR ILLEGAL BITS 
(1) 013214 012777 177777 166576 MOV #-1,aDZVL sTRY TO WRITE ALL 1°S 
(1) 013222 011004 MOV (ROS .R4 ACTUAL 
(1) 013224 020405 CMP R45 “CMP ACTUAL VS EXPECTED 
(1) 013226 001401 BEQ 1$ 31 YES,GO CONTINUE PROCESSING 
(1) 013230 104002 ERROR 2 *ERROR- BIT PATTERN NOT CORRECT 
(1) 013232 005077 166562 1$: CLR QDZVLPR : TRY TO GRITE ALL ZEROES 
(1) 013236 011004 MOV (RO) .R4 sREAD REGISTER 
(1) 013240 020405 CMP Re RS “CMP ACTUAL VS. EXPECTED 
(1) 013242 001401 BEQ 2 *BRANCH L 
1) 013244 104002 “= ERROR 2 “VALUES DID NOT COMPARE 
3092 SRARAEAAERREREREEEEERERES TEST 1D RRRRAAAAAAAAAAEAAEEAEREREEEREEE 
(1) ;*THIS TEST PERFORMS RESET TESTING AND 
(1) **TESTING OF READ ONLY REGISTER D2VMSR 
(3) : = “AND TESTING OF WRITE ONLY REGISTER DZVTDR 
(6) ° ° ah... a ae L 
(5) 013246 000004 TST10: SCOPE 
(3) 013250 012737 000010 001246 MOV #10,$TSTNM -LOAD THE NUMBER OF THIS TEST 
(3) 013256 012737 013332 001362 MOV ASH, NEXT POINT TO THE START OF THE NEXT TEST 
(1) 013264 104413 DEVICE.CL = CLEAR bzv1 
(1) 013266 013700 002030 MOV SO VMSR.R '  SSET UP FOR ERROR MESSAGE 
(1) 013272 011005 MOV (RO), ng “COPY PRESENT CONTENTS 
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(1) 013274 042705 170360 BIC #170360,R5 sCLEAR ILLEGAL BITS 
(1) Or 112777 17 166526 MOVB  #-1,aDZVTOR “TRY TO WRITE ALL 1°S 
(1) 01 011004 (ROS RG * ACTUAL 
(1) 01331 020405 R4,R5 “CMP ACTUAL VS EXPECTED 
(1) 01331 1401 1$ “IF YES,GO CONTIMUE PROCESSING 
(1) 013314 194008 2 *#ERROR= BIT PATTERN NOT CORRECT 
(1) 013316 005077 166512 1$: QDZVTDR :TRY TO WRITE ALL ZEROES 
(1) 01332 011004 (RO) RS sREAD REGISTER 
(1) 01 ; 4 020405 R4,R5 “CMP ACTUAL VS. EXPECTED 
(1) 013326 001401 2$ “BRANCH 
(1) 013330 104002 2 “VALUES DID NOT COMPARE 
312 013332 2$: 
3094 SRAAAARARAEAERAAARAERAEEAAEEE TEST 17 RAEAEAAARAAAAKAARAARAAKREARAERAAERAEAEE 
3095 S*VERIFY THAT SETTING “DTR' FOR A LINE WILL 
3096 “#BRING UP ''CO’’ AND "RING'’ FOR: 
3097 **THE SAME LINE IF IN EXTERNAL MODE 
3098 “#THE STAGGERED LINE IF IN STAGGERED MODE. 
3099 “LINES ARE STAGGERED AS FOLLOWS: 
3100 **LINEO WITH LINE1; LINE2 WITH LINES. 
3101 **THIS TEST IS ONLY RUN IF AN H325,0R H329 
3102 *®]S CONNECTED ON THE DZV UNDER TEST. 
3105 ::* TEST 11 
(5) 22 REAR AAAEAERARAEEAERAKEAERAREAAEAAARAERAER! RAAARAKEEAEARAREEEEREKE 
(4) 013332 000004 TST11: SCOPE 
(2) 013334 012737 000011 001246 MOV #11, $TSTNM sLOAD THE NUMBER OF THIS TEST 
(2) 013342 012737 013526 001362 MOV #TST12,NEXT “POINT TO THE START OF THE NEXT TEST 
3106 013350 005737 001372 TST MODE “TEST TO SEE IF TESTING WITH 
3107 013354 001001 BNE 85 : CTOR 
3108 013356 104400 ADVANCE “IF NO, GO TO NEXT TEST 
3109 013360 012737 013450 001364 8$: MOV #10$,LOCK “SET FOR TIGHT SCOPE LOOP 
3110 013366 104413 DEVICE.CLR “SET DCLR IN CSR TO ZERO DEVICE 
3111 013370 013700 002030 MOV DZVMSR,RO “SET REGISTER 
3112 013374 005003 CLR R3 : LINE NUMBER 
3113 013376 012702 000001 MOV #1,R2 “SET POINTE 
3114 013402 130237 001366 1$: BITB R2.LINE “TEST THIS LINE? 
3115 013406 001003 BNE Lt} YES 
3116 013410 005203 2$: INC R3 ; 
3117 013412 104420 SHIFT “GET NEXT LI 
3118 013414 000772 BR 1$ “TEST NEXT LINE 
3119 013416 010204 3$: MOV R2,R4 “SAVE BINARY BIT FOR LINE # 
3120 013420 105737 001372 TSTB MODE “RUNNING IN EXTERNAL MODE? 
121 013424 100406 BMI 5$ “IF YES SKIP STAGGERED SETUP 
31 é 015426 032703 000001 BIT ¥BI1TO.R3 ‘IF EVEN LINE 
312 013432 001402 BEQ 4$ *60 GET ODD PARTNER 
124 013434 006204 ASR R4 “OTHERWISE GET EVEN COMPANION 
3125 013436 000401 BR “§ *GO SETUP EXPECTED RESULTS 
126 013440 006304 4$ ASL R4 “FIND ODD PARTNER 
127 013442 010405 5$ MOV R4.RS “LOAD RS FOR EXPECTED 
128 013444 000305 SWAB sé “PLACE IN UPPER BYTE 
1¢9 013446 150405 BISB ——R4,RS “SET FOR RING BITS 
130 013450 150277 166352 10$: BISB  R2,aHDZVTCR “SET DTR BIT 
3131 013454 104414 DELAY “DELAY FOR CABLE LAG 
313¢ 013456 011004 , V (RO) .R4 “MOVE RESULTS OF MSR REGISTER TO R4 
133 013460 020504 CMP R5 RO *RESULTS=EXPECTED? 
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1 1 dest BEQ $s sIF YES CONTINUE 
135 0135464 4 : ERROR sIF NOT PRINT ERROR RESULTS 
1 1 $8 1044 6$: SCOP1 71S Sw09 SET? 
1 1 o185 7 013476 001364 MOV #11$,LOCK :SET UP FOR NEXT TIGHT SCOPE 
1 1 i$ 140277 166324 11$: BICB R2,@HDZVTCR sCLEAR ODTR BIT FOR LINE UNDER TEST 
139 013502 104414 DELAY ;DELAY FOR CABLE LA 
140 013504 011004 MOV (RO) RS sLOAD MSR REGISTER INTO R4 
141 O1 208 adhe BEQ 7$ :I1F CO AND RING CLEARED CONTINUE 
rg | 013510 00500 CLR R5 sOTHERWISE SET EXPECTED FOR ERROR 
143 013512 104002 ERROR 2 :PRINTOUT 
144 013514 104401 7$: SCOP1 71S SwO9 SET? 
145 Oi sese 012737 013450 001364 MOV #10$,LOCK sRESET TIGHT SCOPE LOOP 
$109 013524 000731 BR 2$ :GET NEXT LINE 
3148 SRRAAAAARARRERERERREERERE TEST 12 See eee eee eee eee aaa aaaeeakkent 
(1) s* THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 
(1) s% IS READY TO BE LOADED, AND THAT THE LINE SPECI- 
(1) :® FIED IN BITS 8-9 OF DZVCSR CORRESPOND 
V " vest 12° THE LINE SELECTED IN DZVTCR 
(6) + RRRERRRRRRRERERARERARRREEERAAARARAERERERERARERRRRRERERAAR ARR R EE 
(5) 013526 000004 TST12: SCOPE A 
(3) 013530 0612737 000012 001246 MOV #1¢,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(3) 013536 012737 013660 001362 MOV #TST13,NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 013544 104413 DEVICE.CLR s ISSUE A ‘DEVICE CLEAR** (RESET) 
(1) 013546 012737 013602 001364 MOV #2$,,LOCK :SET UP FOR TIGHT SCOPE LOOP 
(1) 013554 005037 001374 — CLR SAVLIN s INITIALIZE FOR ERROR PRINTOUT 
(1) 013560 013700 002010 MOV DZVCSR,RO :SET POINTER 
(1) 013564 012705 100040 MOV #MSENAB'TRDY.RS ;START THE EXPECTED LINE NUMBER AT 0 
(1) 013570 012702 000001 MOV #1,R2 sUSING R2 AS A BIT POINTER, POINT TO LINE 0 
(1) 013574 130237 001366 1$: BITB R2,LINE 21S THIS LINE SELECTED? 
(1) 013600 001421 BEQ 6$ :IF NO, SKIP THE STARTUP 
(1) 013602 050277 166216 2$: BIS R2,aDZVTCR sSET THE GO BIT FOR THIS LINE 
(1) 013606 052710 000040 BIS #MSENAB , (RO) :START THE SCANNER 
(1) 013612 005004 CLR R4 :SET FOR DELAY 
(1) 013614 005710 3$: TST (RO) 3TX READY? 
(1) 013616 100404 BM! 4$ ;BR IF YES 
(1) 013620 104414 DELAY ;DELAY 
(1) 013622 Oo3e INC R4 ; COUNTER 
(1) 013624 001373 3$ :BR IF <>0! 
(1) 013626 104003 ERROR 3 :*TX NOT READY! 
(1° 013630 011004 4$: MOV (RO) .R4 sGET THE LIME POINTED TO BY THE SCANNER 
(1) 013632 020405 CMP R4,R5 °1$ THE LINE NUMBER WHAT IT SHOULD BE? 
(1) 013634 001401 BEQ 5$ sIF YES,GO WORK ON THE NEXT LINE 
(1) 013636 104002 ERROR 2 s*LINE NUMBER DID NOT MATCH TCR BIT 
(1) 013640 104401 5$: SCOP1 31S sw0 ? 
(1) 013642 104413 DEVICE.CLR sSET DCLR IN CSR;SETUP FOR NEXT LINE 
(1) 013644 062705 000400 6$: ADD #400,R5 sPOINT TO THE NEXT EXPECTED LINE 
(1) 013650 Apesee SH sPOINT TO THE NEXT LINE.ARE ALL LINES TESTED? 
(1) 013652 0052 001374 INC SAVLIN sADJUST FOR ERROR PRINTOUT 
(1) 013656 000746 BR 1$ 3 T, GO DO THE NEXT LINE 
3149 sRRAAAERAEERERARAREAEEREEE TEST {3 RERAAARAAAERERAEREREREEREEEEEEEE 
3150 s*TEST TO TRANSMIT ONE CHAR AND 
3151 s*RECEIVE ONE CHAR ON ONE Sine 
s126 s*AT A TIME. THE CHAR IS ‘'252°° 
315 :*ALL SELECTED LINES WILL BE TURNED ON . 
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154 s*THIS 1S THE FIRST TIME AN 
155 **DATA IS CHECKED IN THE RECELY VER. 
136 3 *US ING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
137 , ot WHICH TRANSMITS A STEADY STREAM OF CHARACTERS. 
(5) ° at. a ioe see ne 
(4) 01 113: § 
(2) 01 012737 000013 001246 MOV #13, $TSTNM sLOAD THE NUMBER OF THIS TEST 
(2) 01 012737 014150 001362 MOV #TST14,NEXT “POINT TO THE START OF THE NEXT TEST 
(1) 013676 012737 014132 001364 MOV #16$, LOCK “USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
160 013704 104417 “SET DCLR IN CSR AND SET MAINT MODE 
161 or 706 104421 LPRSET “L LPR REGISTER FOR ALL LI 
16¢ 13710 005037 001374 SAVLIN “INIT. ERR 
163 013714 105037 001425 CLRB —«DONFL INIT FOR TCR BIT HANDLER 
164 013720 012702 000001 MOV #1.R2 “LINE POINTER 
3165 013724 012701 0002 2 MOV #252,R1 “SAVE CHARACTER TO BE TRANSMITTED 
166 013730 052777 000040 166052 BIS W#MSENAB,@DZVCSR :START SCANNER 
316 013756 030237 001366 3$: BIT R2,LINE “VALID LINE ? 
3168 013742 001467 . BEQ 15$ *NO SET UP NEXT LINE 
3169 013744 010277 166054 MOV R2, aDZVTCR 3SET T TCR 
3170 013750 005005 S$: CLR R5 SET RS FOR A DELAY LOOP 
3171 013752 105777 166032 TSTB $aDZVCSR at REC DONE = 
17 013756 100001 BPL $ “IF YES, ALLOW TIME FOR TRDY TO SET 
3173 013760 104020 ERROR 20 **REC DONE SHOULD = 0 
3174 013762 005777 166022 6$: TST @DZVCSR *TRDY SET? 
3175 013766 100404 BM] 7$ *IF YES BRANCH 
3176 013770 104414 DELAY “IF NO THEN WAIT FOR IT 
3177 013772 005205 INC RS “DELAY LOOP 
3178 013774 001372 BNE ;BRANCH BACK AND TEST AGAIN 
179 013776 104003 ERROR 3 is TROY FAILED TO SET! 
3180 014000 105737 001425 7$: TSTB = DONFLG HAVE WE ALREADY SENT CHARAC. 
181 014004 001041 RNE 13$ cIF YES GO CLEAR TCR BIT 
3182 014006 105237 001425 INCB _—CDONFLG *IF NOT INDICATE HAVING BEEN HERE 
3183 014012 110177 166016 MOVB  R1,aDZVTOR *LOAD CHARACTER 
3184 014016 013705 001374 MOV SAVLIN,RS “MAKE EXPECTED LINE # 
3185 014022 005737 001372 TST MODE “IS THIS TEST IN STACGERED MODE? 
(1) 014026 100006 BPL 10$ “IF NOT, SKIP ST ACGERED SETUP 
(1) :WE MUST NOW INVERT THE LAST B11 OF THE LINE NUMBER 
(1) 014030 006205 ASR RS :GET THE LAST BIT INTO THE CARRY BIT 
(1) 014032 103402 BCS 8$ “IF IT IS SET. GO CLEAR IT 
(1) 014034 000261 SEC [IF IT IS CLEAR SET IT HERE? 
(1) 014036 000401 BR 9$ “SKIP THE CLEARING 
(1) 014040 000241 8$: CLC “CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
(1) 014042 006105 9$: ROL RS GET THE NEW BIT BACK INTO R 
3186 014044 000305 10$: SWAB RS5 “MOVE THE LINE NUMSER TO THE UPPER BYTE 
3187 014046 150105 AISB —s- R171, RS “ADD CHARACTER 
3188 014050 052705 100000 BIS #DVALID,RS “ADD DATA VALID 
189 014054 005003 CLR R 
190 014056 105777 165726 11$:  TSTB @DZVCSR :1S RDONE SET? 
191 014062 100404 BMI 12 “IF YES GO GET CHAR. 
19 14064 104414 DELAY “IF NOT THEN WAIT 
193 014066 005205 INC R3 “DELAY LOOP 
319% 014070 001372 BNE 11$ “DELAY DONE? 
195 014072 104004 ERROR 4 **#RDONE FAILED TO SET! 


I 6 
CVDZA-C MACY11 ae At 3) 10-AUG-81 11:08 PAGE 25-54 
1 1 10:55 









CVDZAC.P11 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. SEQ 0073 
014074 017704 165714 12$: ee R4 sLOAD THE VALUE ACTUALLY RECEIVED 
161 83 4,R5 : COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
141 1722 ot :IF YE oT LINE 
14104 1 6 **NO DATA/CONTENTS DID NOT COMPAR 
141 oY $ :GO BACK AND WAIT TO C TCR BIT 
01 014110 104401 13$: ; CHECK " SEE 4 SWITCH NINE IS SET 
4 14112 105037 001425 DONFLG T UP FOR NEXT LINE 
014116 005077 165702 - aDZVTCR “CLEAR PREVIOUS TER BIT 
04 0141 005237 001374 15$: INC SAVLIN SET LINE tte FOR NEXT LINE 
§ 014126 104420 SHIFT = CAL CULATE NEXT LINE 
oe 014130 000702 BR 3$ “GET GET STARTED 
4 sTIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY 
10 014132 005777 165652 16$: TST aDZVCSR 715 ae ee He READY? 
1 014136 100375 BPL :1F NOT, WAIT FOR IT 
1 014140 110177 165670 MOVB R1,aDZVTDR sLOAD THE CHARACTER 
014144 104401 SCOP1 :LOOP AGIN IF Sw09=1 
M3 014146 000760 BR 13$ s OTHERWISE, GO PICK UP THE TEST NORMALLY 
16 ERARRARARAAEARREEREREREKEE TEST 16 eee ea aa eee eee ae aaaakaeeeeanaee 
;*THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 
s*DISABLED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 
**TO ZERO FOR EACH LINE. 
esTHIS TEST ALSO VERIFIES THAT THE SILO CAN BE 
2 vest 9 MPTIED BY ISSUING A DEVICE MASTER CLEAR. 
°s® 
Say ape eR aor 
014150 000004 TST14: SCOPE 
014152 012737 000014 001246 MOV #14,$ sLOAD THE NUMBER OF THIS TEST 
014160 012737 014472 001362 MOV ashi3, NEXT ‘BOINT TO THE START OF THE NEXT TEST 
014166 105037 001425 CLRB DONF = CLEAR TEST CONTROL FLAG 
014172 005037 001374 CLR SAVLIN ;CLEAR LINE INDICATOR 
014176 104417 DCLASM s ISSUE A DEVICE MASTER CLEAR 
3227 sAND SET MAINT BIT IF NECESSARY 
3228 014200 013701 001370 MOV PAR ,R1 sSAVE DEFAULT PARAMETERS 
3229 014204 042737 010000 0013570 BIC #RCVON,PAR “DISABLE RECEIVER IN DEFAULT PAR. 
3230 014212 i'n ot 4 100$: *L PARAMETERS IN LPR REGISTER 
$533 014214 0101357 001370 R1,P. RESTORE DEFAULT PARAMETERS 
014220 012701 000252 #252,R1 ; A CHARA 1 
323 O1tS$s 013702 001366 LINE, 3 AN I THE ACTIVE LINES 
3234 0142 O19ee 165570 R2, aDZVTCR sSET TCR BITS FOR ALL ACTIVE LINES 
35 014234 052777 000040 165546 #MSENAB, @DZVCSR ;SET MASTER SCAN ENABLE 
36 014242 005005 1$: : INIT DELAY COUNTER 
237 014244 005777 165540 2$: aDZVCSR :I1S TRANS READY SET? 
3238 O14529 100404 35$ :BRANCH IF Y 
014252 104414 sWAIT FOR TRDY TO SET 
014254 005205 R5 : INCREMENT DELAY COUNTER 
014256 00137 $ sRETURN TO CHECK TRDY 
014260 10400 3 TRDY FAILED TO SET! 
014262 117705 165524 3$ @HDZVCSR,RS LINE NO. TO RS 
014266 HEE on 1 ff SINIT TCR POINTER 
014272 705 177774 #°C<3>,R5 3 ISOLATE INE NO. 
014276 001403 31$ : LINE CH 
014 106303 30$: R3 SHIFT R3 POINTER TO NEXT LINE 
014302 005305 AS : DECREMENT LINE NO. 
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014 a BNE 308 sWHEN R5=0, R3 POINTS TO LINE TCR 
O14 ; 050508 31$: BIT R »R2 ;HAS CHARACTER BEE N SENi 
014312 140 165506 BICB R3,aDZVTCR “IF YES THEN CLEAR TCR BIT 
014316 001 1 BNE 1$ “IF ALL CHARAC. SENT DROP iHROUGH 
014 105737 001425 TSTB DONFLG :1F NO, BORE ACTIVE IS THIS SECOND 
014324 001037 BNE 10$ “IF YES SKIP TO SECOND PART DOF TEST 
014326 BR 5$ ZF FIRST TIME HERE GO ZERO TCR BITS 
014330 110177 165500 4$: MOVB  R1,a@DZVTOR “LOAD CHAR. INTO BUFFER 
014 34 040302 BIC R3,R2 ‘INDICATE CHARAC. SENT ON THIS LINE 
014336 000741 BR 1$ *GO BACK AND WAIT FOR TRDY TO SET 
014340 005077 165460 S$: CLR aDZVTCR “CLEAR OUT TCR BITS 
014344 005005 CLR ‘INIT DELAY COUNTER 
014346 105777 165436 6$: TSTB aDZVCSR “IS RECEIV. DONE SET? 
01459 100002 BPL 7$ *IF NOT THEN WAIT TO SEE IF IT WILL 
014354 104020 ERROR 20 “REC DONE SHOULD 
014356 000403 BR 8$ *GO FIND WHICH LINE RECEIVED 
014360 104414 7$ DELAY “STALL FOR RECEIVER 
014362 005205 INC R5 ‘INCREMENT DELAY COUNTER 
014364 001370 BNE 6$ ; T DONE GO RETEST REC DONE 
014366 017704 165422 8$: MOV @DZVRBUF .R4 “READ REC. BUFFER 
014372 100007 BPL 9$ *IS DVALID SET? 
014374 000304 SWAB sR “IF YES GET LINE NO. 
014376 042704 177774 BIC #°C<3>,R4 “ISOLATE LINE NO. 
014402 010437 001374 MOV R4,SAVLIN “SET UP LINE NO. FOR ERROR REPORT 
014406 104017 ERROR 17 *DVALID SHOULD NOT BE SET 
014410 000766 BR 8$ *GO CHECK FOR ANY OTHER CHAR. IN SILO 
014412 105237 001425 9$: INCB _—DONFLG “INDICATE THAT FIRST PART OF TEST IS DONE 
014416 013701 001370 MOV PAR,R1 “SAVE DEFAULT LINE PARAM. 
014422 000673 BR 100$ “NOW GO RELOAD LPR REGISTER TO 

‘TURN RECEIVERS ON 

014424 005005 10$: CLR RS “ZERO DELAY COUNTER 
014406 104414 11$: DELAY “WAIT FOR ALL CHARAC. TO BE RECEIVED 
014430 005205 INC RS 3 INCREASE DELAY COUNT 
014432 001375 BNE 11$ “CONT. DELAY IF NOT FINISHED 
014434 104413 DEVICE.CLA “ISSUE A MASTER CLEAR 
014436 000240 NOP 
014440 000240 NOP 
014442 105777 165342 TSTB  a@DZVCSR sNOW IS RECEIV. DGNE SET? 
014446 10000 BPL “BRANCH IF NO 
014450 005037 001374 CLR SAVLIN ZCLEAR LINE NO FOR ERROR REPORT 
014454 104020 ERROR “REC. DONE SHOULD NOT BE SET! 
014456 017704 165332 12$: MOV @DZ7VRBUF ,R4 “READ REC. BUFFER 
014462 100003 BPL 13$ *I1S DVALID SET? IT SHOULDN'T BE 
014464 005037 001374 CLR SAVLIN ;DEVICE. CLR DID NOT ZERO SILO 
014470 104017 _ ERROR 17 “PRINT OUT THE ERROR.(LINE NO. IS IRRELEVANT) 


SRARAAARERAAAAERERERERKEE TEST 15 See e eee ee eae aeaeaaaeeeeeeeenee 
+t THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
: «CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
> * (ONE LINE AT A TIME BASED UPON VALID LIN 
rest gg is THE FIRST TIME THAT ALL DATA IS CHECKED 


23 REREAEAERAAAEAERAEAAREREREREEEERERAERERAEERAREED KEEEAARERERERAEREREAEEE 
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(4) 014472 TST15: SCOPE 
(2) 014674 012737 46 MOV #15. $TSTNM sLOAD THE NUMBER 0 OF THIS TEST 
(2) 14508 12737 13 it MOV #TST16,NEXT “POINT TO THE START OF THE NEXT TEST 
(1) 014510 012737 576 001 MOV #5$,LOCK :USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
§ 014516 104417 DCLASM *SET DCLR AND SET MNTFLG 
1458 104421 LPRSET “LOAD LPR REGISTER FOR ALL LINES 
7 014522 005037 001374 CLR SAVLIN :INIT FOR FIRST LINE 
308 0145 10442¢ BUF SET *ZERO BUFFER AREA 
309 14530 105037 001425 CLRB_ —DONFLG *ZERO TCR BIT HANDLER FLAG 
10 0145 012708 000001 MOV #1,R2 “LINE POINTER 
311 014540 05 000040 165242 BIS #MSENAB .@DZVCSR “START SCANNER 
318 014546 030237 001366 3$: BIT LINE ‘VALID LINE ? 
313 014552 001477 BEQ , *NO SET UP NEXT LINE 
314 014554 010277 165244 MOV R2,aDZVTCR :SET TCR BIT 
3315 014560 013700 001374 MOV SAVLIN,RO JUST BUFFER POINTER 
316 014564 0063 ASL R T 
3317 014566 105777 165216 4$: TSTB aDZVCSR <1S REC DONE = 0 ? 
3318 014572 100001 BPL 54% IF YES, ALLOW TIME FOR TRDY TO SET 
3319 014574 104020 ERROR 20 **#REC DONE SHOUL 
3320 014576 005005 S$: CLR R5 “USE RS AS TIMER WAITING FOR TRDY TO SET 
331 014600 065777 165204 6$: TST aDZVCSR “IS THE TRANSMITTER READY? 
3352 014604 100404 BM] 7$ “IF SO, GO TRANSMIT A CHARACTER 
3353 (14606 104414 DELAY ‘WAIT A LITTLE BIT 
3354 014610 005205 INC RS ;UP THE LOCAL COUNTER.TIME EXCEEDED? 
3335 014612 001372 BNE 6$ T, GO TRY AGAIN 
3336 014614 104003 ERROR 3 ; *TRDY FAILED TO SET! 
3397 014616 105737 001425 7$: TSTB -DONFLG “ALL CHARAC. TRANS. ? 
3328 014622 001047 BNE 14$ “IF YES GO ZERO TCR BIT 
3329 014624 116077 001426 165202 MOVB TDO(RO),a@DZVTDR :LOAD CHARACTER 
3330 014632 013705 001374 MOV SAVLIN,RS “MAKE EXPECTED LINE # 
3331 014636 005737 001372 TST MODE “IS THIS TEST IN STAGGERED MODE? 
(1) 014642 100006 BPL 10$ “IF NOT, SKIP STAGGERED SETUP 
(1) sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 014644 006205 ASR RS :GET THE LAST BIT INTO THE CARRY BIT 
(1) 014646 103402 BCS eS “IF IT IS SET. GO CLEAR IT 
(1) 014650 000261 SEC “IF IT IS CLEAR SET IT HERE 
(1) 014652 000401 BR 9$ :SKIP THE CLEARIMS 
(1) 014654 000241 8$: CLC “CLEAR THE CARRY BIT CINVERS ION OF LINE PARITY) 
(1) 014656 006105 9$: ROL RS GET THE NEW BIT BACK INTO 
332 014660 10$: SWAB R5 ;MOVE T HE LINE NUMBER TO THE UPPER BYTE 
333 014662 156005 001426 BISB TDO(RO).RS D CHARAC TER 
O14 52703 100000 BIS #DVALID.R5 “ADD DATA VALID 
1467 00 CLR R 
014674 105777 165110 11$: TSTB  aDZVCSR sREC DONE? 
014700 100404 BMI 12$ “IF YES GO CHECK CHAR. 
014702 104414 DELAY “IF NOT WAIT FOR REC. 
614704 005203 INC R3 “DELAY LOOP TIMER 
014706 001372 BNE 11$ :DELAY FINISHED? | 
014710 104004 ERROR 4 **RDONE FAILED TO SET! 
014712 017704 165076 12$: MOV @DZVRBUF ,R4 TOAD THE VALUE ACTUALLY RECEIVED 
014716 20405 CMP R4.RS5 “COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
01472 001401 BEQ 13$ “IF YES INE 
014722 104006 ERROR **NO DATA/CONTENTS DID NOT COMPARE 
014724 104401 13$:  SCOP1 “CHECK TO SEE IF SWITCH NINE IS SET 
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53347 0147 1936 001426 INCB TDO(RO) s INCREMENT BINARY PATTERN FOR THIS LINE 
. 14 4d 1 BNE 4$ : *R AGAIN FOR NEXT CHARACTER 
14 105237 001425 INCB DONFLG 
50 01474 44 1 BR 4$ 
S51 01474 0 169038 14$: CLR aDZVTCR 
26 01474 Meat Oe 196? CLRB DONFLG 31 FOR NEX 
35 Ape: 52 001374 15$: INC SAVLIN INC — TED LINE 
$2¢ 14756 Heo SHIFT SH HIFT THE LINE POINTER. ARE WE ALL DONE? 
336 014760 0006 BR 3$ Z IF NO, GO AROUND AGAIN FOR NEXT LINE 
35 
$28 SRAARAAERAEREEREREEAREREE TEST 16 Se eee eee eee eee aeaaaaaaakkeene 
59 S*THIS TEST WILL PROVE, THAT: a, 
360 :* * 1) THE TRANSMITTER ‘BREAK BIT’’ WORKS ; 
361 ) THE RECEIVER CAN FLAG ‘FRAMING ERRORS*’ 
a) ) THE RECEIVER CAN FLAG ‘PARITY ERRORS*’ 
Seek P vest’ *ONLY Y ONE LINE AT A TIME WILL BE EXERCISED. 
(5) + A. Be. eer eT 
(4) 014762 000004 TST16: SCOP 
014764 012737 000016 001246 MOV #16,$STSTNM ;LOAD THE NUMBER OF THIS TEST 
014772 012737 015164 001362 MOV aTStiy. NEXT ;POINT TO THE START OF THE NEXT TEST 
015000 012737 015110 001364 MOV #5$,LOCK FOR LOOP 
Bieoes 005037 001374 CLR SAVLIN ‘INIT DINE INDIC. FOR ERROR PRINTOUT 
015012 012702 000001 MOV #1,R2 “LINE POINTER 
015016 030237 001366 1$: BIT R2,LINE * VALID LINE? 
015022 001454 BEQ 9$ <IF NOT SET FOR NEXT LINE 
015024 104417 DCLASM 3SET DCLR IN CSR AND SET MNTFLG 
015026 013701 001370 MOV PAR ,R1 K UP PARAMETERS 
015032 052737 000300 001370 IS #ODDPAR! PARITY, PAR sFORCE ODD PARITY 
015040 104421 LPRSET LPR REGISTER 
75 015042 010137 001370 V R1,PAR “RESET PAR TO ORIGINAL VALUE 
76 015046 052777 000040 164734 BIS #MSENAB, @DZVCSR 5 TART SCANNER 
377 015054 013705 001374 MOV SAVLIN,R5 sMAKE EXPECTED DATA 
378 015060 005737 001372 TST MODE + THIS TEST IN STAGGERED MODE? 
M3 015064 100006 BPL 4$ :IF NOT, SKIP STAGGERED SETUP 
4% sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 015066 006205 ASR R5 :GET THE LAST BIT INTO THE CARRY BIT 
(1) 015070 103402 BCS 2$ ZIF IT IS SET, GO CLEAR IT 
(1) 015072 000261 SEC sIF IT IS CLEAR SET IT HERE 
(1) 015074 000401 BR 3$ SKIP THE CLEARI 
(1) 015076 000241 $: CLC CL EAR THE CARRY BIT (INVERSION OF LINE PARITY) 
(1) 015100 006105 $: ROL R5 GET THE NEW BIT BACK INTO R5 
3379 015102 000305 4$: SWAB R5 PUT LINE NUMBER IN UPPER BYTE 
3380 015104 052705 130000 BIS #DVALID!PARER! FRMERR RS :ADD EXPECT 
3381 015110 005003 5$: CLR R s INIT DELAY ACCUMULATOR 
2206 01511 110277 164720 MOVB R2,@HDZVTDR ;SET BREAK BIT 
338 015116 105777 164666 OB: TSTB aDZVCSR ;RECEIVER DONE? 
3384 121S¢ 100404 BMI 7$ CH I 
385 015124 104414 DELAY SWAIT FOR REC DONE TO SET 
386 015126 005203 INC R3 : INC DELAY LOOP 
387 015130 001372 BNE 6$ :DELAY FINISHED? 
388 015132 104004 ERROR 4 *RDONE FAILED TO SET! 
3389 015134 017704 164654 7$: MOV @DZVRBUF ,R4 “ACTUAL 
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R4 RS : CMP ACTUAL VS EXPECTED. DO THEY MATCH? 
4 :sDATA/EONTENTS FAILED TO COMPARE 
@HDZVTDR ;CLEAR BRE AK BITS 
SAVLIN sINC LINE # 

3SET R2 TO NEXT LINE 

“GO BACK AND TEST NEXT LINE 


T 17 S&ee eee eee eee eaeeeeeekeekeee 


:* THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 
:*WHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 
[*BUT WILL INTERRUPT IF THE PROCESSOR STATUS 


;*ALLOWS INTERRUPTS. 


© RAE EAAAERAREAREREREREREREREKEEEEEEREREERERERERRAREAERRREEEER 


TST17: 


1$: 


4$: 


5$: 


6$: 


7$: 
8$: 


SCOPE 
MOV 


MOV 
DCLASM 
LPRSET 
R 
CLRB 
MTPS 


#17,$TST 


THE NUMBER OF THIS TEST 
aTST20. NEXT 


; CLR _ IN CSR T T BIT 

IF NECESSARY CINTERNAL 

; UP LPR REGISTE 
SAVLIN s INIT LINE INDIC. FOR ERROR 
DONFLG sINIT TCR BIT HANDLER FLAG 
LINE ,aDZVTCR ;SET ALL VALID TCR BITS 
#MASK :SET CPU STATUS TO DZV11 PRIO, 
WMASK,@DZVRIS :SET RECEIVER STATUS 
WMASK,@DZVTIS ;SET TRANSMITTER STATUS 
#6$ ,aDZVTIV :SET UP THE TRANSMITTER INTERRUPT VECTOR 
#7$, aDZVRIV 7SET UP THE RECEIVER INTERRUPT VECTOR 
WMASK ,@DZVRIS ;SET THE INTERRUPT VECTOR STATUS 


WMASK.aDZVTIS  :SET T TRANSMITTER INTERRUPT PRIORITY 
#TIE!MSENAB,@DZVCSR zENABLE T HE DEVICE 
R s INIT DELAY COUNTER 
aDZVCSR *TRDY SET? 
55 ‘IF NOT GO DO DELAY 
“WAIT FOR INTERRUPT 


8$ :G0 CLEAR TIE BIT 
“DELAY ROUTINE CALL 

R5 : INC DELAY C R 

4$ sDELAY FINISHED? 

4 sxTRDY NOT 

8$ 60 CL 


EAR TIE 
;REMOVE THE By FROM THE STACK 
:DON'T LET AN 


A#TIE ,aDZVCSR T Y MORE oth al OCCUR 
DONFLG ; PROCESSOR ALLOWING INTER? 

IF YES NO ERROR 
10 :IF NOT PRINT ERROR 
9$ ;RETURN TO THE NORMAL FLOW 
12 SPOP FORE aoe NOT INTERRUPT 
#TIE,adZVCSR RESET TRANSMITTER INTERRUPT ENABLE 
DONFLS ENABLED? 


; INTERRUPTS 
9$ IF NO 
? :IF YES TRANS FAILED TO INTER. 


SEQ 0077 


N 6 
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VDZAC.P11 D2V11 DEVICE DIAGNOSTICS. | COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. SEQ 0078 
1) 1537 106427 9 108: MIPS #CLEAR sALLOW INTERRUPTS 
(2) 1229 12777 015506 164434 MOV #11$,aDZVTIV —_; SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 015410 012777 015512 164422 MOV #12$,aDZVR “SET UP THE RECEIVER INTERRUPT VECTOR 
(2) 015416 012777 164416 MOV IS :SET THE INTERRUPT VECT U 
(2) 015424 012777 164414 MOV *SET TRANSMITTER INTERRUPT PRIORITY 
(2) 0154 52777 000140 164350 BIS aDzvCSR HE DEVICE 
(1) 015440 113777 001426 164366 MOVB D0, aDZVT cOOAB BUFFER WITH ANY. CHAR. 
(1) 0134666 005005 CLR RS ‘INIT DELAY ACCUMULATOR 
(1) 01949 105777 164334 13$: TSTB  aDZVCSR *REC. DONE? 
(1) 0154654 100003 BPL 14$ *I1F NOT DELAY 
(1) 015456 000240 NOP sWAIT FOR INTERRUPT 
(1) 015460 000240 NOP 
(1) 015462 000404 BR 18$ 
(1) 015464 104414 14$: DELAY :DELAY FOR INTERRUPT 
(1) 015466 005205 INC R5 s INCREMENT DELAY COUNTER 
(1) 015470 001367 BNE 13$ ;DELAY FINISHED? 
(1) 015472 104004 ERROR 4 **NO RX DONE! (NOT SET) 
(1) 015474 105737 001425 18$: TSTB  DONFLG ; PROCESSOR ALLOWING INTERRUPTS? 
(1) 015500 001411 | BEQ 15$ “IF ON'T PRINT ERROR 
(1) 015502 104011 ERROR 11 RECEIVER FAILED TO INTERRUPT 
(1) 015504 000407 BR 15$ *CONTINUE TEST 
(1) 015506 104010 11$: ERROR 10 * TRANSMITTER SHOULD NOT INTER. 
(1) 015510 000404 BR 16$ *CONT TEST 
(1) 015512 105737 001425 12$:  TSTB  DONFLG =PROCESSOR ALLOWING INTERRUPTS? 
(1) 015516 001001 BNE 16$ ‘IF YES DON'T PRINT ERROR 
(1) 015520 104012 ERROR 12 #RECEIVER SHOULD NOT INTERRUPT 
(1) 015522 022626 16$:  POP2SP “POP FOR F 
(1) 015324 042777 040100 164256 15$: BIC #RIE!TIE,@DZVCSR- CLEARY INTERRUPTS 
(1) 015532 105737 001425 TSTB -DONFLG D TIME THROUGH? 
(1) 015536 001005 BNE 17$ cIF ves LEAVE TEST 
(1) 015540 105237 001425 INCB _—CDONFLG sIF NO INDICATE SECOND TEST PASS 
(1) 015544 106427 600000 MIPS  #CLEAR *ALLOW INTERRUPTS 
(1) 015550 000635 BR 1$ “RESTART TEST 
(1) 015552 106427 000200 17$: MTPS  #MASK :DON'T ALLOW INTERRUPTS 
(1) 015556 104413 DEVICE.CLR “CLEAR DEVICE, LEAVE TEST 
S160 fs RRAAAARERAREAREEEERAERREE TEST 20 REAAEAAAAAARAKEEAREEAREREEEREEAEKER 
3401 **THIS TEST VERIFIES THAT THE RECEIVER WILL 
3402 **INTERRUPT BEFORE THE TRANSMIT TER EVEN 
3403 **THOUGH THE TRANSAI R WAS E 
3404 **FIRST. SET PS 0 HIGH (MASK INTERRUPTS) 
3405 **GET RDONE AND TRDY ET; 
06 s*SET TX IE AND RX IE: 
3407 “CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 
3409 s:8 TEST 2 
(5) © RAAF AAAAAARAAAAAARARAEREAREAEAEAAAAEAAKAAARAARAAARAAAEARAEAAEAEAARAAAARAREE 
(4) 015560 000 TST20: SCOPE 
(2) 019962 012737 000020 001246 MOV #20.$TSTNM sLOAD THE NUMBER OF THIS TEST 
(1) 015570 012737 004170 001362 MOV #SEOP ,NEXT “POINT TO THE END-OF-PASS HANDLER 
10 015576 104417 DCLASM :SET DCLR IN CSR_AND MNTFLG 
11 015 104421 LPRSET “LOAD PAR REGISTER FOR ALL LINES 
le 015602 005037 001374 CLR “INIT. ERROR LINE INDIC. 
13 015606 018777 16016 164224 MOV Pas. apzva1y “SETUP INTERRUPT STUFF 
3414 015614 012777 00020 164200 MOV WMASK,aDZVRIS_: 
3415 015622 012777 016104 164214 MOV #12$, M OUT IV : 
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16 _156 12777 9002 164210 MOV WMASK,@DZ7VTIS_: 
17 0196 $2777 000040 164144 BIS #MSENAB, aDZVCSR 
18 015644 01 202 900001 MOV #1,R2 sLINE FOINTER 
19 015650 03 é 001 3$: BIT R2,LINE *VALID LINE ? 
0 015654 001515 BEC 148 *IF NOT cO TO NEXT LINE 
1 13656 106427 000200 4$ MIPS § #MASK 
: 015 110277 164136 MOVB  R2,a@DZVTCR :SET TCR BIT 
34 015666 005777 164122 TST aD 7 VRBUF “VALID DATA: 
4 015672 100001 BPL +6 ‘IT BETTER NOT BE SET 
§ 015674 104017 ERROR 17 “DATA VALID SHUULD NOT BE SET 
6 015676 105777 164106 c$: TSTB  a@DZVCSR “RECEIVER DONE ? 
427 015702 100001 BPL +4 
28 015704 104020 ERROR 20 sRECEIVER DONE BIT SHOULD NOT BE SET 
3429 015706 005005 CLR RS 
3430 015710 005004 CLR R4 
3431 015712 005777 164072 99$: TST aDZVCSR sWAIT FOR TRDY 
32 015716 100404 BMI 100$ “BR IF READY 
343 015720 104414 DELAY *STALL TIME 
34 015722 005204 INC R4 ; | 
3435 015724 001372 99$ 
3436 015726 104003 ERROR 3 sTRDY FAILED TO SET | 
3437 015730 105077 164100 100$: CLRB aDZVTDR “SEND A ZERO CHARACTER 
3438 015734 005004 CLR R4 
3439 015736 105777 164046 6$: TSTB aDZVCSR :1S RDONE SET? 
3440 015742 100404 7$ 
3441 015744 104414 DELAY 
3448 015746 005204 INC R4 
3443 015750 003372 Bi 6s 
3444 015752 104004 ERROR 4 :eRDONE FAILED TO SET! 
3445 015754 0057/7 164030 7$: TST aDZVCSR “TRANS DONE BIT = 1 ? 
3446 015760 10040" BMI +4 ; 
3447 015762 10400: RROR 3 “*NO TRANS DONE FAILED TO SET 
48 sNOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1 
3449 “SET INTERRUPT ENABLES 
3450 015764 052777 040000 164016 BIS #TIE,aDZVCSR 
3451 015772 052777 000100 164010 BIS #RIE, aDZVCSR 
3452 016000 106427 000000 MIPS  #CLEAR sALLOW THE INTERRUPTS 
3453 016004 000240 NOP 
3454 016006 000240 oP 
3455 016010 104007 ERROR 7 :*TRANSMITTER FAILED TO INTERRUPT 
3456 016012 104011 ERROR 11 **RECEIVER FAILED TO INTERRUPT 
3457 016014 000435 14$ “GET OUT 
3459 sRECEIVER INTERRUPT ROUTINE 
3460 016016 017704 163772 8$: OV @DZVRBUF ,R4 s ACTUAL 
3461 016022 010403 V R4,R3 
3462 016024 00030 SWAB CORR 
3463 016026 042703 177770 BIC #°C<7>,R3 sSTRIP JUNK 
3464 016032 005737 001372 TST MODE *IS THIS TEST IN STAGGERED MODE? 
(1) 016036 100006 BPL 11$ “IF NOT, SKIP STAGGERED SETUP 
(1 :WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 016040 006203 ASR R3 :GET THE LAST BIT INTO THE CARRY BIT 
(1) 016042 103402 BCS 9$ “IF IT IS SET, GO CL 
(1) 016044 000261 SEC “IF IT 1S CLEAR SET IT HERE 
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9$: 
10$: 
11$: 


12$: 


13$: 
14$: 


COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 





BR 10$ :SKIP THE CLEARING 
CLC “CLEAR THE CARRY BIT CINV NVERSION OF LINE PARITY) 
ROL R “GET THE NEW BIT BACK INTO R3 
CMP R3,SAVLIN *1S THIS A VALID LINE 
BEQ +6 °Y 
ERROR 15 *tINVALID LINE 
BIC #°C<377>,R4 °S TRIP JUNK 
Cc RS.RG ;DATA COMPARE ? 
BEQ +4 YES 
ERROR **DATA DOES NOT COMPARE 
BIC R2,aDZVTCR ;CLEAR T 
BR 0 GET SUT OF INTERRUPT MODE 

- TRANSMITTER INTERRUPT sic ROUTINE 
ERROR 11 THE RECEIVER INTERRUPT FAILED 

*TO OVERRIDE THE TRANSMITTER 

PoP2sP :REMOVE THE INTERRUPT VECTOR FROM THE STACK 
INC SAVLIN ADJUST FOR NEXT LINE 
SHIFT “GET THE NEXT POINTER. IF DONE, ADVANCE 
JMP 3$ “OTHERWISE GO DO THE NEXT LINE 


SEQ 0081 
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538 
539 016246 000000 0 
540 plese 000000 0 
rh 16252 000000 0 
3829 Het >: 017007 EM17 sERROR 17 
544 016256 017165 DHS 
3545 016260 017256 DTS 
3547 016262 017045 EM20 
3548 016264 017165 DHS 
3549 016266 017256 DTS 
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551 otras MESSAGES 


555 016 79 047200 020117 052502 EM1:  “ASCIZ <200>/NO BUS REPLY RESPONSE FROM DZV11 REGISTER/ 
556 (016 00 042522 044507 EM2: .ASCIZ <200>?REGISTER R/W FAI 
557 016371 00 0511246 047101 EM3: § _ASCIZ <200>/TRANSMIT READY (TRDY) NOT SET/ 
558 016430 051200 041505 044505 EM4:  .ASCIZ <200>/RECEIVER DONE NO 
559 01645 200 040504 040524 EMS:  .ASCIZ <200>/DATA COMPARISON ERROR/ 

560 016506 042 00 053132 030461 EM6:  .ASCIZ <200>/D2V11 *kECEIVER BUFFER* ERROR/ 
561 01654 500 051126 047101 EM7:  .ASCIZ <200>/TRANSAITTER FAILED TO INTERRUPT/ 
3 016606 052600 042316 050130 £—M10:  .ASCIZ <200>/UNEXPECTED TRANSMITTER INTERRUPT/ 

3563 016650 051200 041505 044505 EM11: .ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ 
3564 016706 052600 042516 050130 EM12: .ASCIZ <200> PECTED RECEIVER INTERRUPT/ 

3565 01674 200 041501 044524 EM15: .ASCIZ <200>/ACTION DETECTED ON INVALID LINE./ 

3566 017007 500 040504 040524 EM17: .ASCIZ <200>/DATA VALID SHOULD NOT BE S 

3367 017045 500 042522 042503 EM20: .ASCIZ <200>/RECEIVER DONE SHOULD NOT BE SET/ 

569 017106 052200 040522 020120 DH1:  .ASCIZ <200>/TRAP PC DZV11 REG/ 

570 017132 042600 050130 041505 DH2:  .ASCIZ <200>/EXPECTED FOUND REGISTER/ 

3571 017165 200 044514 042516 DH3: .ASCIZ <200>/LINE NO./ 

3572 017177 500 054105 042520 DH4: .ASCIZ <200>/EXPECTED FOUND LINE/ 

3574 EVEN 

3578 “DATA TABLES FOR ERROR MESSAGES 

3579 017226 000002 DT1: 2 

3580 017230 006 003 -BYTE 6,3 

3581 017232 001330 $REGI 

3582 017234 006 001 .BYTE 6,1 

3585 017236 001326 SREGO 

3585 017240 000003 p12: 3 

3586 017242 004 =BYTE 6,4 

3587 017244 001340 SREG 

3588 017246 006 001 .BYTE 6,1 

3589 017250 001336 SREG4 

3590 017252 006 001 -BYTE 6,1 

3591 017254 001326 SREGO 

3593 017256 000001 DT3: 1 

3594 017260 003 001 .BYTE 3,1 

3595 017262 001374 SAVLIN 

3597 017264 000003 DT4: 3 

3598 017266 006 004 “BYTE 6,4 

3599 017270 001340 $REGS 

3600 017272 006 001 .BYTE 6.1 
1 017274 001336 SREG4 

3602 017276 003 001 .BYTE 3,1 

3603 017300 001374 SAVLIN 

3015 : TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 

3614 , 

3615 017302 002450 DLYTBL: 2450 sTIME FOR 50 BAUD 

3616 017304 001560 1560 “TIME FOR 75 BAUD 
17. 017306 001120 1120 ‘TIME FOR 110 BAUD 

3618 017310 000750 750 “TIME FOR 134 BAUD 

3619 017312 000660 660 “TIME FOR 150 BAUD 
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pi ale 000330 330 sTIME FOR 300 BAUD 
17316 000150 150 sTIME F 00 BAUD 
aie: 0 000060 TIME FOR 1200 BAUD 
017322 000040 40 sTIME FOR 1800 BAUD 
017324 000030 30 sTIME FOR 2000 
017326 000020 20 sTIME FOR 2400 BAUD 
017350 000010 10 sTIME FOR 3600 
0173352 000001 1 TIME FOR 4800 BAUD 
017334 000001 1 sTIME FOR 7200 BAUD 
017336 000001 1 TIME FOR 9600 SAUD 
017340 000001 1 TIME OF DELAY FOR 19200 BAUD 


DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 
;FOR ALL TESTS TO FUNCTION CORRECTLY ON A LSI11. P 





4 7 re 
CVDZA=C_MACY11 30G(1063)__10-AUG-81 11:08 PAGE 28 : 
CVDZAC.P11 10=AUG~81 10:55 FALCON (KXT=11) UPGRADE ROUTINES. :GPA SEQ 0085 


- SBTTL FALCON (KXT=11) UPGRADE ROUTINES. : GPA 
THE ta oww: vege HAVE BEEN mat TO ALLOW DIAGNOSTIC(S) 
O RUN_ON A FALCON Tw31) wrt: SYSTEM. 
H FALCON OR NOT, WELL SIZE THE of * OF 
T sik). FALCON HAS 2kW LOCAL RAM AT 28Kk(+ O 30K 
AND A MACRO- Ok TO 31K. CONSEQUENTLY, ALL 1/0 DEVICES “MUST 
an toe Tt BETWEEN 1 T 


4000 AND 177776. ADDITIONALLY, WE°LL STRAP THE 
M4 RAP SERVICE LEVEL TO PRI6, AND SET THE HALT VECTOR SO THAT 
WE CAN STOP THE SUCKER 


TO wight THE IMPACT OF THESE CHANGES ON FINAL (400-776) 
; BULK OF THIS CODE IS OS che 4, FLOATING VECTOR. SPACE - Ay LB 


Ww 
ARGH ID OOR NO 









gerry 


“Fie ec Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se 














| 
| 
| 
* IF THE CPU AT HAND IS A F XT11), IT STAYS THERE (NO HARM 
3649 OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL ETE ATCMER STATE. 
3651 017342 005227 177777 FALCON: INC #~1 » ONCE-ONLY !!! GPA 
3652 017346 001002 BN 1$ GPA 
365 017350 004737 000400 CALL § KXTCHK : EXECUTE FALCON CHECK GPA 
54 017354 005727 1$: TST (PC)+ ; TEST FALCON FLAG... = GPA 
3655 017356 000000 KXTFLAG: 0 *...NZ = FALCON.. 7 GPA 
3656 017360 000207 RETURN :...AND RETURN TO CALLER.. GPA 
3658 017362 $SVPC= . GPA 
3659 000400 .= 400 : RESTORE FROM 374:376 AT END ::GPA 
3660 000400 005037 017356 KXTCHK: CLR KXTFLAG * ASSUME NOT ON. ::GPA 
3661 06404 013746 000004 MOV a4 (SP) * SAVE ERROR VECTOR: =: GPA 
3662 000¢10 012737 000504 000004 MOV #2$.an > SET A TRAP CATCHER. 7: GPA 
3663 000416 012700 160010 MOV #160010,R0 : FALCON RAM STARTS AT 28K+4. ::GPA 
3664 000422 005720 1$: TST (RO)+ : * GPA 
3665 000424 000240 240 7:GPA 
3666 000426 020027 174000 CMP RO.#174000 : SIZE TO 31K. *:GPA 
3667 000432 103773 BLO GPA 
3668 000434 010037 017356 MOV RO. KXTFLAG : MUST BE FALCON, SET THE FLAG ::GPA 
3669 000440 012700 000040 MOV #46,R0 > GET PRI1 BIT... GPA 
3670 000444 040037 000006 BIC RO, a#6 >...AND LOWER BUS-ERROR... GPA 
3671 000450 040037 000016 BIC RO. a#16 :. Re ::GPA 
3672 000454 040037 000022 BIC RO. 0 .an22 eee pe 2 GPA 
3673 000460 040037 00003 BIC 2 eeu GPA 
3674 000464 040037 000036 BIC a436 ;...AND TRAP SERVICE TO PRIG6 =: GPA 
3675 000470 012737 170000 000140 MOV site, a#140 : ENABLE ‘BREAK'’ HALT. ::GPA 
3676 000476 012637 000004 V (SP)+, 084 : RESTORE ERROR VECTOR... > GPA 
uv 000502 000207 RET +..eAND RE >: GPA 
3679 000504 012716 000512 2$: #3$, (SP) - TRAP == NOT A FALCON... ::GPA 
3680 000510 000002 3 +2» CONTI ‘ SSGPA 
1 000512 012637 000004 3$: (SP) +, ans ; RESET ERROR VECTOR >: GPA 
000516 012700 000402 srS9608 ; SET-UP TO RESTORE FLOATING... :;GPA 
3683 000522 013701 000376 6. R1 Sem GPA 
000326 10602 «SAVE STACK POINTER IN R2 7 GPA 
§ 000530 012704 000570 seers 
000534 014446 4$: sent. -(SP) s PUSH THE RESTORE COPE... GPA 
000536 020427 000546 R4,a5$§ *...CMTO THE STACK. *:GPA 
000542 101374 ::GPA 
9 000544 010607 SP PC : AND EXECUTE IT. > :GPA 
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: THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK ARCA. 
Ss: MOV RO. 2(R0) RESTORE .+2... 
MO (RO) 


V :.. HALT (OR 107). 
CMP Rb) (RO)+ 
MP RO,4776 
BLOS) sé LOOP "TIL DONE 
MOV R2,SP THEN RESTORE SP... 
RETURN ;.. AND RETURN TO CALLER 


; aa ont ob ee tk AREA IS ce FOR ANY PROGRAM UNIQUE 
; BE SURE THAT IT DOESN T GET SCREWED UP !! 


* INIT $BASE AND $VECT1 AND TWEAK THE "‘SGETPAR’’ CALLING 
; SEQUENCE TO ACCEPT THE VALID FALCON RANGE. 
; 


ALCINI: CMP  $BASE.#ABASE  ; IS SBASE VIRGIN ?? 

BNE 1$ : SKIP NEXT IF NOT 

MOV #174040,$BASE ;: YES SET ENGINEERING DEFAULT 
1$: CMP SVECT1,#AVECT1 : IS $VECT1 VIRGIN 

BNE 2$ : ts NEXT IF NOT 

MOV 4370, SVECT 11 * YES, SET ENGINEERING DEFAULT 
2$: MOV * SUBSTITUE CSR TEXT... 


#3$ R+2 
MOV #174000. SFTESR +6 
MOV #177770,.GETCSR+10 ;...AND VALID RANGE. 
#4$.GETVEC+2 > SUBSTITUTE VECTOR TEXT... 


MOV 
CLR TVEC+6 
MOV 7370. GETVEC#10 ++» sAND VALID RANGE. 
RETURN ; RETURN TO CALLER. 
3$: eASCIZ <200>*1ST CSR ADDRESS (174000:177770) ° 
4$: rely <200>"1ST VECTOR ADDRESS (000:370) ’ 
SFREE= <1000-.>/2 ; FREE WORDS LEFT. 
-=SSVPC 
CORMAX 


~ END 
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T0.$ 0114 DCLR = Dzvc3 00154 HDZVTC 002026 
AVERTT= 900300 Boise = 177570 Davee O01SS> NDIVED 0090 
AVECT2= DELAY = 104414 D2vCS 001964 HILIM 
BINWRD 1 DEVADR 006054 DZVC 1376 HT = 000011 
BITO = 1 DEVICES 104413 DzvC 161 INBUF 010446 
BITOO = 1 DH) 171 DIVLEV O11116 INIFLG 00142 
81101 = 000002 DH 171 DZVL 202 INSTER= 104404 
81702 = 000004 DH 01716 Dz 002030 INSTR = 104403 
BITO3 = 000010 DH4 17177 DZ 001414 INSTR2 005632 
81104 = 000020 DISPLA 001306 bzvRey 002014 IOTVEC= 000020 
BITOS = 000040 DISPRE 000174 DZVRIS 002042 KXTCHK 000400 
7470 B1T06 = 000100 DLYCNT 0064 DZVRIV 002040 KXTFLA 01735 
7470 BITO7 = 000200 DLYTBL 01730 DZVICR 002024 LF _ = 00001 
= 017470 BITO8 = 000400 DONFLG 0014 DZVTDR 0020 LIMITS 0057 
ADDUS = 017670 BITO9 = 001000 DSWR = 177570 DZVTIS 002046 LINE 001366 
ADDWS = 017470 BIT], = 000002 DTRO = 000400 DZVTIV 002044 LINEO 001504 
ADDWS = 017470 BIT10 = 0020 DIR} = 001000 DZV.EN 001740 LINE? 001516 
ADDW6 = 017470 BIT11 = 004000 DTR2 = 002000 DZV.MA 001500 LINEI 001624 
ADDW? = 017470 B1T12 = 910000 DTR3 = 004 EIGHT = 000030 LINE11 0016 
ADDWB = 01747 BIT13 = 020000 D 017226 EIGHTS= 000070 LINEI2 001659 
ADDW9 = 017470 BIT14 = 040000 DT 017240 EMTVEC= 000030 LINE13 001662 
ADEVCT= BIT15 = 100000 DT 017256 EM] 016270 LINE14 001674 
| ADEVM BIT = 4 4 017264 EM10 016606 LINES 001706 
ADR BIT3 = 000010 DVALID= 100000 EM11 01665 LINEIG 001720 
BIT4 = 000020 ZCRO 001500 EM12 01670 LINEI7 001732 
BITS 040 7CR1_ 001512 EMIS 01674 LINEZ 001530 
BIT6 = 000100 DZCR10 001620 EM17 «017007 LINES 001542 
BIT7 = 000200 DZCR11 001632 EM2 «016343 LINES 001554 
BIT8 = 000400 DZCRI2 001644 ENZO 017049 LINES 001566 
1T9 1000 DZCR13 001656 E 016371 LINES 001 
BPTVEC= 000014 DZCR14 001670 EM4 «016430 LINE? 00161 
= 000400 DZCRIS5 001702 EMS = 0016457 LOBITS 006036 
BRK1 = 001000 DZCRI6 001714 EM6 016506 LOCK 001364 
BRK2 = 002000 DZCRI7 001726 EM? «016545 LOLIM 006030 
BRK3 = 004000 DzcRe 001526 ERRMSG 006760 LPRSET= 104421 
00464 DZCR3 0015 ERRVEC= 000004 LPO = 000000 
BUFSET= 104422 DZCR4 001550 ERTABO 0071 LP1 = 000001 
CHRC DZCRS 001562 EVEPAR= 000000 LP2 = 000002 
CLEAR = 00000 DZCR6 001574 EXITER 007064 LP3 = 00000 
CNVRT = 104412 CR? 001606 FALCIN 000570 MAINT = 000010 
CONVRT= 106411 DZVACT 001406 FALCON 017342 TO 001510 
C 017362 DZVCSR 002010 FIVE = 00000 11, 901522 
CoO = 000400 veo 001502 FIVES = 000040 MANTIO 0016 
Col = 001000 D2vC1_ 001514 FRMERR= 0200 ANTI] 001642 
cog = 002000 DZvC19 001682 GETCSR= 0024 MANTI2 001694 
COS = 004000 DZvC11 0016 GETSWR= 00717 MANT13 001666 
CR = 000015 DZVC12 001646 GETVEC= 002426 MANT14 001700 
CRLF = 000200 DZVC13 001660 HALTS 00701 MANTIS 001712 
CS 011414 D2vC14 001672 HDRFLG 00142 MANTIG 001724 
CYCLE 010552 DZVC15 001704 HDZVCS 00201 MANTI7 0017 
ATABP 007004 DZVCIg 001716 HDZVLP 00202 MANT2 0019 
DATAHD 006772 D2vC17 001730 HDZVMS 0020 MANTS 001546 
DCLASM= 10441 DZvC2 001526 HDZVRB 002016 MANTS4 001560 
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CVDZAC.P11 
nye: ue ity Tak ae 
= 
POP! SP= 6 STACK = 001120 10 0 «0014 13600 
POP2SP= 022626 STKLMT= 177776 11 0014 14800 
PRO” = ST 091446 1 00143 150 
PRI = 000040 Sv0S 006046 7 001434 1600 
PR2 = 0001 SUR TEIGHT 902106 17200 
PRE = 900200 SuREG | B00001 TAME. 825000 15600 
= = = 
PRS 000240 $w0O = 000001 TKVEC = a09060 VECMAP 
a a ee 
= 
PS) = (177776 SwOs = 900016 TL1 = 000400 
pSy = (177776 $W04 = 000020 TL2 = 001000 
PUSHRO= 010046 Su0S = 000040 L$ = 001400 
PUSHIS= 005746 $W06 = 000100 TMTBL 002050 
PUSH2S= 024646 $u0? = 000200 TPVEC = 0000 
VEC= 000024 SW0B = 000400 TRAPVE= 000036 
RCVON = 010000 $W09 = 001000 Y =7 
000200 Swi = 900002 TRTVEC= 000014 
ek a rn a 
= 
REAR O00018 SiS = 020000 tr aprt 
RESO = 100100 Sue = 850000 SEEN oT Te oor 
= b 4 
= 000001 sug = 000004 eit OstiS sATYC 
RING] = 000002 Su = 000010 TST10 013246 SATY 
RING2 = 000004 Sue = 000020 S111 (013332 SATY3 
RINGS = 000010 Sus = 000040 TST12 013526 TYé 
RLO” = 000000 $u6 = 000100 T8113 013660 SAUTOB 
RL? = 000400 Su? = 000200 TST14 014150 5 
RL2 = 001000 Su8 = 000400 TST1§ 014472 
RLS = 001400 $9 = 001000 TST16 014762 
104415 RUN 001412 $110 = 001000 TST1? 015164 
PARO 001506 R6 -=¥000006 $1200 = 003400 S12, 912302 
PAR] «001520 =%000007 $134 = 001400 T8730 018560 
PARIO 001626 SAVACT 001410 $150 = 002000 TSS 12346 
PARI1 001640 SAVLIN 001374 $1800 = 004000 TST 012524 
PARI2 001652 SAVNO, 001416 $19200= 007400 Ts15 013750 
PARIS 001664 SAVNUM 00141 $2000 = 004400 Ts16 - 013032 
PARTS — 001676 SAVPC 001404 $5400 = 005000 TSI? «013162 
PARIS 001710 SAVOS = 104407 $300 = 002400 TST 004416 
PARIG 001722 SCOP1 = 104401 $3600 = 005400 YOsTO= 000040 
PARI? 0017 SERV.G 007150 $4800 = 006000 TYPDAT 006774 
PAR2 «(001532 SETAPT 011260 $50," = 000000 YPE = 104402 
PARS «001544 SETFLG= 104406 $600 = 003000 TYPMSG 006664 
PARA «001556 EVEN = 000020 $7200 = 006400 1110” 092084 
PARS «001570 SEVENS= 000060 $75 = 000400 T1200 002066 
PAR46 001602 SHIFT = 1044 $9600 = 007000 7134 02056 
ern © Woutie Sane 810000 aves 900001 11300 905070 
PIRO. = 177772 SIX = 000010 TcRI = 000002 HBOS 803072 





tt 

™ 

° 
oe 


oO 


SsoooooS 
aueeae 


MI~"MONY 


L— ] 
— 
sadh 
~ 
NM 


Ne 


a | 
moO 


gosege 
Soar 


Sscssee 
SSPENESSIE 


men— 
SNR 


Mr 


me ed ed ed ed ed ed LU oe 


RRO 


Sonera aren 


ZS 


add 


Sssssssssss 
REVSRRVS 


cee ce ee eed eed td ed ot od od od 


— 
One 


CVDZA-C_MACY11 (1063) alt 11:08 PAGE c9-2 
CVDZAC .P11 10-AUG-81 10:55 SYMBOL TABLE 








SDDW3 sid 12 SFREE = 2 SMTYPS 001161 STESTN EE, ~BEGIN 
SODW4 1214 SGDADR 1 Se 1165 STIMES a “ BUF SE 
SDDW5 1216 SGDDAT 1270 4646 $TKB 0131 « CNVRT 
ey, 1220 $GET42 30 $N $3 $TKS 131 ONVR 
SODW 1222 $SHD = Oey eee 1320 STMPO 1 ~DCLAS 
oe 1224 SHIBTS 144 STMP1 001344 «DELAY 
1226 SICNT it 5 004604 STMP 001346 DEVIC 
SDEVCT 0011 SILLUP 7560 Opies STMP Opts eERRTA 
SDEVM 001176 SINTAG 001301 1454 STMP4 01352 - INSTE 
SDOAGN 004350 ITE O91 Sen 007554 SIN = poet - INSTR 
$E = sages F 001360 007414 $TPB 001 48 «INSTI 
SENDAD 00434 SLFLG 005511 007550 STPFLG 00132 
SENDCT 004324 SLPADR 001252 007466 STPS 001314 G 
SENV 001140 SLPERR 001254 SQUES 001356 STSTM 001452 
SENVM 3 001141 R1 001152 E 001324 STSTNA FE oe 
oP 004170 001156 SREGO 001326 $TYPE 00471 
OPCT 004316 001162 SREG] 001330 STYPEC 005124 eRESOS5 
SERFLG 001247 001166 SREG 001332 STYPEX 005244 - SAVO5S 
001261 BTS SRE 001334 SUNIT 001132 - SCOP 
SERROR 006 es 001150 SREG4 001336 SUNITM 001456 ~SCOP1 
SERRPC 0012 001154 SREGS 001340 $US 001144 oSETFL 
RRTB 001362 001160 SRT 004352 SVECT1 001170 - SHIFT 
SERTTL 001256 001164 SSAVR6 007564 SVECT ABEL «START 
TABL 001140 001450 $SC 004404 SXOFF = 00002 « TRPSR 
SETEND 001244 005510 SSETUP= 000000 $x = 000021 « TRPTA 
SFATAL 001122 001134 $SV 004566 SXTSTR 004444 - TYPE 
SFFLG 00551 001136 SSVPC = 017362 Y = 000023 ° = 
SFILLC 00132 001120 SSWR = 164 $$GET4= 000000 
SFILLS 001321 001151 SSWREG 001142 ‘ = 01736 
SFLIP = 177777 SMTYP2 001155 SSWRMK= 000000 -ADVAN 006410 
- ABS. 017362 000 CON RO REL GBL OD 
ERRORS DETECTED: 0 
CVDZAC , CVDZAC=CVDZAC 
RUN-TIME: 21 14 .6 SECONDS 
RUN-TIME RATIO: 191/37=5.1 
CORE USED: 37K (73 PAGES) 
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